For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / docum / gr_lib1.doc / chap06.{tx < prev next >

Wrap

Text File | 1991-08-10 | 110.8 KB | 2,495 lines

6. ÉáßΦ¿αÑ¡¿∩ Turbo Pascal ----------------------------------------------------------------- äá¡¡δ⌐ αáºñÑ½ ¬¡¿ú¿ ¡Ñ »αÑñ¡áº¡áτÑ¡ ñ½∩ ¿ºπτÑ¡¿∩ ó ¬áτÑßΓóÑ óóÑñÑ¡¿∩ ó ∩ºδ¬¿ »α«úαá¼¼¿α«óá¡¿∩ ¿½¿ ¡á»¿ßá¡¿∩ »α¿¬½áñ¡δσ »α«úαá¼¼. Å«½∞º«óáΓÑ½¿, ¬«Γ«αδ¼ ¡πª¡á í«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼áµ¿∩ »« Turbo Pascal, ∩ºδ¬π ¼áΦ¿¡¡δσ ¬«ñ«ó ¿ Γ.ñ., ñ«½ª¡δ «íαáΓ¿Γ∞ß∩ ¬ απ¬«ó«ñßΓóá¼ ¿½¿ ¼¡«ú«τ¿ß½Ñ¡¡δ¼ ¬¡¿úá¼ »« φΓ¿¼ ∩ºδ¬á¼. é ñá¡¡«⌐ ¬¡¿úÑ íπñπΓ αáßß¼«ΓαÑ¡δ Γ«½∞¬« ¬«¡¬αÑΓ¡δÑ ó«»α«ßδ. è«¡Ñτ¡«, »α¿ τΓÑ¡¿¿ ñá¡¡«⌐ ¬¡¿ú¿ «»αÑñÑ½Ñ¡¡δÑ º¡á¡¿∩ »« ∩ºδ¬á¼ »α«úαá¼¼¿α«óá¡¿∩ ¡Ñ«íσ«ñ¿¼δ, «ñ¡á¬« «¡¿ ¡Ñ ∩ó½∩εΓß∩ áíß«½εΓ¡δ¼ πß½«ó¿Ñ¼ ñ½∩ τΓÑ¡¿∩ ¬¡¿ú¿. îδ »αÑñßΓáó¿¼ ½¿ßΓ¿¡ú¿ ¡Ñß¬«½∞¬¿σ ¬«α«Γ¬¿σ »α«úαá¼¼, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ ß¬«¼»¿½¿α«óá¡δ ¿ óδ»«½¡Ñ¡δ ó Turbo Pascal Σ¿α¼δ Borland Software. ¥Γ¿ ¡Ñí«½∞Φ¿Ñ »α«úαá¼¼δ ñÑ¼«¡ßΓα¿απεΓ ¡Ñ¬«Γ«αδÑ ó«º¼«ª¡«ßΓ¿ »α«úαá¼¼¿α«óá¡¿∩ ñ½∩ »½áΓδ VGA. Äß«íÑ¡¡« óδñÑ½∩ÑΓß∩ αÑª¿¼ 19, Γá¬ ¬á¬ «¡ »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ 256 µóÑΓ«ó ¿º 262144. ò«Γ∩ Turbo Pascal óÑαß¿⌐ 4.0 ¿ ßΓáαΦÑ ¿¼ÑÑΓ ¼¡«ªÑßΓó« úαáΣ¿τÑß¬¿σ ¬«¼á¡ñ, ñ«ßΓπ» ¬ αÑª¿¼π 19 ó ¡Ñ¼ ¡Ñ »αÑñπß¼«ΓαÑ¡. Åα«úαá¼¼¿α«óá¡¿Ñ »«½¡«ßΓ∞ε »α«¿ßσ«ñ¿Γ ¡á Åáß¬á½Ñ, Γá¬ τΓ« ñ«ßΓπ» ¬ ¼áΦ¿¡¡δ¼ ¬«¼á¡ñá¼ ¡Ñ ΓαÑíπÑΓß∩. î«ñπ½¿, ß½πªáΘ¿Ñ αáßΦ¿αÑ¡¿∩¼¿ ∩ºδ¬á Åáß¬á½∞, Γá¬ªÑ ¡á»¿ßá¡δ ¡á Turbo Pascal. ïεíδÑ »α«µÑñπαδ ó φΓ¿σ ¼«ñπ½∩σ ¼«úπΓ íδΓ∞ ¡áßΓα«Ñ¡δ »α«úαá¼¼¿ßΓ«¼ »« Ñú« ΓαÑí«óá¡¿∩¼. ¥Γ¿ »«ñ»α«úαá¼¼δ ½Ñú¬« ¼«úπΓ íδΓ∞ ó¬½ετÑ¡δ ó ñαπú¿Ñ »α«úαá¼¼δ, τΓ« ñÑ½áÑΓ »α«úαá¼¼¿α«óá¡¿Ñ ñ½∩ »½áΓδ VGA ó Åáß¬á½Ñ í«½ÑÑ »α«ßΓδ¼ ¿ «ñ¡«óαÑ¼Ñ¡¡« í«½ÑÑ ¼«Θ¡δ¼. 6.1 Äß¡«óδ Åáß¬á½∩ ----------------------------------------------------------------- ä½∩ αáí«Γδ ß »α¿ó«ñ¿¼δ¼¿ »α«úαá¼¼á¼¿ ΓαÑíπÑΓß∩ Turbo Pascal óÑαß¿⌐ 4.0 ¿ ßΓáαΦÑ. ä½∩ »«½¡«ú« »«¡¿¼á¡¿∩ φΓ¿σ »α«úαá¼¼ Γá¬ªÑ ΓαÑíπÑΓß∩ σ«α«ΦÑÑ »αá¬Γ¿τÑß¬«Ñ º¡á¡¿Ñ ∩ºδ¬á Åáß¬á½∞. Äñ¡á¬«, ñáªÑ ¡áτ¿¡áεΘ¿Ñ αáí«ΓáΓ∞ ¡á Åáß¬á½Ñ »α«úαá¼¼¿ßΓδ, ß¬«αÑÑ óßÑú«, ß¼«úπΓ »«¡∩Γ∞ íáº«óπε ¿ñÑε, ½ÑªáΘπε ó «ß¡«óÑ φΓ¿σ »α¿¼Ñα«ó. è«¼á¡ñδ ó φΓ¿σ »α«úαá¼¼áσ Γá¬ªÑ ¼«úπΓ íδΓ∞ ºá»α«úαá¼¼¿α«óá¡δ ó Turbo Pascal óÑαß¿¿ 3.0 ¿½¿ ñáªÑ ¡á Turbo BASIC. Å«½∞º«óáΓÑ½¿, ¼á½« ºá¿¡ΓÑαÑß«óá¡¡δÑ ¿½¿ ó««íΘÑ ¡Ñ ¿¡ΓÑαÑßπεΘ¿Ñß∩ Åáß¬á½Ñ¼, ¼«úπΓ «íαáΓ¿Γ∞ß∩ ¬ ú½áóá¼, ó ¬«Γ«αδσ αáßß¼áΓα¿óáεΓß∩ ºá¬«¡τÑ¡¡δÑ »á¬ÑΓδ »α«úαá¼¼. 6.1.1 ÆαÑí«óá¡¿∩ ñ½∩ ¿ß»«½∞º«óá¡¿∩ Åáß¬á½∩ ----------------------------------------------------------------- ùΓ«íδ óδ»«½¡¿Γ∞ ß½ÑñπεΘ¿Ñ »α«úαá¼¼δ ¿ ó«ß»«½∞º«óáΓ∞ß∩ óßÑ¼¿ »αÑ¿¼πΘÑßΓóá¼¿ ñ«ßΓπ»á ¬ 256 µóÑΓá¼ ¿º 262144, ΓαÑíπÑΓß∩ PC ß »½áΓ«⌐ VGA, »αáó¿½∞¡« »«ñ¬½ετÑ¡¡«⌐ ¬ á¡á½«ú«ó«¼π ¼«¡¿Γ«απ. èα«¼Ñ Γ«ú«, óáª¡πε α«½∞ ¿úαáεΓ ¡Ñ¬«Γ«αδÑ ñ«»«½¡¿ΓÑ½∞¡δÑ »α«µÑñπαδ ¡á Åáß¬á½Ñ. ¥Γ¿ »α«µÑñπαδ »«¼«úπΓ óá¼ ß«ºñáΓ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ ¬«¼á¡ñδ. ¥Γ¿ ¬«¼á¡ñδ ºáΓÑ¼ ½Ñú¬« ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ¬á¬ ¿ ½εíδÑ ñαπú¿Ñ ¬«¼á¡ñδ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩. é«º¼«ª¡«ßΓ∞ »¿ßáΓ∞ ß«íßΓóÑ¡¡δÑ ¬«¼á¡ñδ ¿ ó¬½ετáΓ∞ ¿σ ó ¬áτÑßΓóÑ αáßΦ¿αÑ¡¿⌐ ßΓá¡ñáαΓ¡«ú« ∩ºδ¬á φΓ« ßó«⌐ßΓó«, »α¿í½¿ªáεΘÑÑ Åáß¬á½∞ ¬ ∩ºδ¬π »α«úαá¼¼¿α«óá¡¿∩ Forth. ìá ∩ºδ¬Ñ Forth ¬áªñá∩ ß«ºñáóáÑ¼á∩ óá¼¿ »α«úαá¼¼á ßΓá¡«ó¿Γß∩ ¡«óδ¼ ß½«ó«¼ ¬«¼á¡ñδ ßá¼«ú« ∩ºδ¬á »α«úαá¼¼¿α«óá¡¿∩. Æ« ªÑ ßá¼«Ñ ß»αáóÑñ½¿ó« ñ½∩ ¼«ñπ½Ñ⌐ Åáß¬á½∩. æ«ºñáóá∩ ¡«óδÑ ¼«ñπ½¿ Åáß¬á½∩, óδ ¼«ªÑΓÑ αáßΦ¿α∩Γ∞ ∩ºδ¬ »« ßó«Ñ¼π πß¼«ΓαÑ¡¿ε. Å« ¼ÑαÑ Γ«ú«, ¬á¬ óßÑ ¡«óδÑ »«½∞º«óáΓÑ½¿ íπñπΓ ß«ºñáóáΓ∞ ßó«¿ ¼«ñπ½¿ Åáß¬á½∩, φΓ«Γ ∩ºδ¬ »α«úαá¼¼¿α«óá¡¿∩ íπñÑΓ »α«ñ«½ªáΓ∞ αáßΦ¿α∩Γ∞ß∩, «ΓóÑτá∩ ¿º¼Ñ¡∩εΘ¿¼ß∩ ΓαÑí«óá¡¿∩¼ ó ¼¿αÑ PC. 6.1.2 æ«ºñá¡¿Ñ ¼«ñπ½∩ Åáß¬á½∩ ----------------------------------------------------------------- î«ñπ½∞ Åáß¬á½∩ ¼«ª¡« αáßß¼áΓα¿óáΓ∞ ¬á¬ ¡áí«α »α«µÑñπα ¡á ∩ºδ¬Ñ Åáß¬á½∞. æ½ÑñπεΘ¿⌐ Σαáú¼Ñ¡Γ »α«úαá¼¼δ (¡Ñ »αÑñ¡áº¡áτÑ¡¡δ⌐ ñ½∩ Γ«ú«, τΓ«íδ óδ Ñú« αÑá½∞¡« óó«ñ¿½¿ ¿ óδ»«½¡∩½¿) ¼«ªÑΓ ß½πª¿Γ∞ ó ¬áτÑßΓóÑ «íΘÑú« »α¿¼Ñαá ¿ß»«½∞º«óá¡¿∩ ¼«ñπ½∩ ¡á Åáß¬á½Ñ: Unit VGA { ¡áτá½« ¼«ñπ½∩ } interface { ºáú«½«ó«¬ ¼«ñπ½∩ } uses dos,crt { ¿ß»«½∞º«óáΓ∞ ñαπú¿Ñ ¼«ñπ½¿ - dos ¿ crt } var Color : Integer; { «íΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ } { »Ñαóá∩ ßΓα«¬á ¬áªñ«⌐ »α«µÑñπαδ ¼«ñπ½∩ } implementation { ú½áó¡«Ñ ΓÑ½« ¼«ñπ½∩ } Procedure MODE; { ΓÑ¬ßΓ »α«úαá¼¼δ ó »α«µÑñπαÑ } var Regs : Registers; { -''- } begin { -''- } with Regs do { -''- } AL:=ModeHexNumber { -''- } AH:=$00; { -''- } end; { -''- } Intr($10,Regs); { -''- } end; { ¬«¡Ñµ »α«µÑñπαδ } {...ñ«»«½¡¿ΓÑ½∞¡δÑ »α«µÑñπαδ } end. { ¬«¡Ñµ ¼«ñπ½∩ } â½áó¡«Ñ ΓÑ½« ¼«ñπ½∩ ¡áτ¿¡áÑΓß∩ ¬«¼á¡ñ«⌐ Åáß¬á½∩ "implementation". ÄΓ¡«ß¿ΓÑ½∞¡« φΓ«⌐ ¬«¼á¡ñδ ¼«ª¡« ñáΓ∞ ß½ÑñπεΘ¿Ñ íáº«óδÑ αÑ¬«¼Ñ¡ñáµ¿¿. é φΓ«⌐ ¬«¼á¡ñÑ »ÑαÑτ¿ß½∩εΓß∩ ¿¼Ñ¡á »α«µÑñπα, »ÑαÑτ¿ß½Ñ¡¡δÑ ó ºáú«½«ó¬Ñ ¼«ñπ½∩. Äñ¡á¬«, »α¿ßó«Ñ¡¿∩ »ÑαÑ¼Ñ¡¡δ¼ ¡Ñ »«óΓ«α∩εΓß∩. è«¼á¡ñá «¬á¡τ¿óáÑΓß∩ ñó«ÑΓ«τ¿Ñ¼ »«ß½Ñ ¿¼Ñ¡¿ »α«µÑñπαδ. ÅÑαÑ¼Ñ¡¡δÑ óó«ñ∩Γß∩ Γ«½∞¬« ó ºáú«½«ó¬Ñ ¼«ñπ½∩ ¿ »ÑαÑñáεΓß∩ ¬«¡¬αÑΓ¡δ¼ »α«µÑñπαá¼ ¬«¼á¡ñ«⌐ "interface". é φΓ«¼ «Γ½¿τ¿Ñ «Γ »α«úαá¼¼¿α«óá¡¿∩ ó¡Ñ ñá¡¡«ú« ¼«ñπ½∩. ¥Γ« «º¡áτáÑΓ, τΓ« ß»¿ß«¬ »α«µÑñπα ó ºáú«½«ó¬Ñ ¼«ñπ½∩ φΓ« Σá¬Γ¿τÑß¬¿ ¼ÑßΓ«»«½«ªÑ¡¿Ñ »Ñαó«⌐ ßΓα«¬¿ ¬áªñ«⌐ »α«µÑñπαδ. æΓα«¬á, ß«ñÑαªáΘá∩ ¿¼∩ »α«µÑñπαδ ó ú½áó¡«¼ ΓÑ½Ñ ¼«ñπ½∩, ß½πª¿Γ Γ«½∞¬« ¬á¬ áñαÑß »ÑαÑσ«ñá ó ¼«ñπ½Ñ. Åα¿ ¿ß»«½∞º«óá¡¿¿ »α«µÑñπαδ ¼«ñπ½∩ óδ óßÑúñá ñ«½ª¡δ óó«ñ¿Γ∞ »Ñαóπε ßΓα«¬π »α«µÑñπαδ ó ß»¿ß¬Ñ »α«µÑñπα ºáú«½«ó¬á ¼«ñπ½∩. é »α«Γ¿ó¡«¼ ß½πτáÑ ½«ú¿¬á óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ ó ¼«ñπ½Ñ íπñÑΓ á¡á½«ú¿τ¡á ½εíδ¼ ñαπú¿¼ Åáß¬á½∞-»α«úαá¼¼á¼. Æ«½∞¬« ΓÑ »ÑαÑ¼Ñ¡¡δÑ, τΓ« «»αÑñÑ½Ñ¡δ ó ¬απú½δσ ß¬«¬áσ »«ß½Ñ ¬áªñ«⌐ »α«µÑñπαδ ¿ ¡áºóá¡δ ó ß»¿ß¬Ñ »α«µÑñπα, ¼«úπΓ »ÑαÑñáóáΓ∞ß∩ ó ¿½¿ ¿º ú½áó¡«ú« ΓÑ½á »α«úαá¼¼δ. ¥Γ« ¼δ «íßπñ¿¼ »«ñα«í¡ÑÑ, Γá¬ ¬á¬ ¡Ñ»«¡¿¼á¡¿Ñ φΓ«ú« ó«»α«ßá ½Ñú¬« ¼«ªÑΓ »α¿óÑßΓ¿ ¬ «Φ¿í¬á¼ ó «»αÑñÑ½Ñ¡¿¿ »ÑαÑ¼Ñ¡¡δσ. Å«ß½Ññ«óáΓÑ½∞¡«ßΓ∞, ó ¬«Γ«α«⌐ »α«µÑñπαδ »ÑαÑτ¿ß½∩εΓß∩ ó ºáú«½«ó¬Ñ, ñ«½ª¡á íδΓ∞ Γá¬á∩ ªÑ, τΓ« ¿ ó ¬«¼á¡ñÑ "implementation" ó ú½áó¡«¼ ΓÑ½Ñ. Åα¿ αáí«ΓÑ ß ¼«ñπ½Ñ¼, ¬á¬ ¿ ß ½εíδ¼¿ Åáß¬á½∞-»α«úαá¼¼á¼¿, óδ ¼«ªÑΓÑ Γ«½∞¬« Γá¬πε »α«µÑñπαπ, ¬«Γ«αá∩ αá¡ÑÑ íδ½á óóÑñÑ¡á ó »α«úαá¼¼Ñ. Åα«µÑñπαá ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ ñαπúπε »α«µÑñπαπ Γ«½∞¬« Ñß½¿ Γá πªÑ óδ»«½¡∩½áß∞ »α«úαá¼¼«⌐. é »α«Γ¿ó¡«¼ ß½πτáÑ ¬«¼»∞εΓÑα ¡Ñ αáß»«º¡áÑΓ ¬«¼á¡ñπ, ¿ »α«¿º«⌐ñÑΓ «Φ¿í¬á. Äß«í«Ñ ó¡¿¼á¡¿Ñ ¡πª¡« «íαáΓ¿Γ∞ ¡á »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ óóÑñÑ¡¿∩ »α«µÑñπα ó ¼«ñπ½Ñ. ê¼∩ ¼«ñπ½∩ ó »á¼∩Γ¿ ¿ ó ΓÑ¬ßΓÑ »α«úαá¼¼δ ñ«½ª¡δ íδΓ∞ áíß«½εΓ¡« ¿ñÑ¡Γ¿τ¡δ. é »α«Γ¿ó¡«¼ ß½πτáÑ »α«¿º«⌐ñÑΓ «Φ¿í¬á, ¬«úñá ¼«ñπ½∞ íπñÑΓ óδºóá¡ »«ß½Ñ ¬«¼»¿½∩µ¿¿. ¥Γ« ¼«ªÑΓ »«¬áºáΓ∞ß∩ ßΓαá¡¡δ¼, »«ß¬«½∞¬π «íδτ¡« ó Åáß¬á½Ñ φΓ¿ ñóá ¿¼Ñ¡¿ ¡Ñ «í∩ºá¡δ ß«ó»áñáΓ∞. Å«φΓ«¼π íπñ∞ΓÑ ó¡¿¼áΓÑ½∞¡δ ß ß«ú½áΦÑ¡¿Ñ¼ «í ¿¼Ñ¡áσ. Éπ¬«ó«ñßΓóπ⌐ΓÑß∞ ß½ÑñπεΘ¿¼ »α¿¼Ñα«¼: àß½¿ »Ñαóá∩ ßΓα«¬á »α«úαá¼¼δ φΓ«: Unit Example; Åα«úαá¼¼á ñ«½ª¡á σαá¡¿Γ∞ß∩ ¬á¬: EXAMPLE.PAS Ç »«ß½Ñ ¬«¼»¿½∩µ¿¿ óδ »«½πτ¿ΓÑ: EXAMPLE.TPU 6.1.3 êº¼Ñ¡Ñ¡¿Ñ ó¿ñÑ«-αÑª¿¼á: ¡«óá∩ »α«µÑñπαá Åáß¬á½∩ ----------------------------------------------------------------- ä½∩ Γ«ú«, τΓ«íδ »«ß½Ñ ºáúαπº¬¿ ß¿ßΓÑ¼δ ¿ ºá»πß¬á »α«úαá¼¼δ ¡á Turbo Pascal ¿º¼Ñ¡¿Γ∞ φ¬αá¡¡δ⌐ αÑª¿¼, óδ ñ«½ª¡δ ó¬½ετ¿Γ∞ ßαÑñßΓóá π»αáó½Ñ¡¿∩ úαáΣ¿¬«⌐. ¥Γ« ¼«ª¡« ßñÑ½áΓ∞, ó¬½ετ¿ó ¼«ñπ½∞ GRAPH.TPU ó óáΦπ »α«úαá¼¼π »α¿ »«¼«Θ¿ ¬«¼á¡ñ«⌐ uses. àß½¿ óδ »αÑñ»«τ¿ΓáÑΓÑ ¡Ñ »«½∞º«óáΓ∞ß∩ φΓ¿¼ ßαÑñßΓó«¼ (»«ß¬«½∞¬π ¼«ñπ½∞ GRAPH ¡Ñ ñáÑΓ ñ«ßΓπ»á ¬ αÑª¿¼π 19), óá¼ »α¿ñÑΓß∩ ßá¼«ßΓ«∩ΓÑ½∞¡« »α«úαá¼¼¿α«óáΓ∞ αÑú¿ßΓαδ úαáΣ¿τÑß¬«⌐ »½áΓδ. æ½Ññ«óáΓÑ½∞¡«, ½«ú¿τ¡« íπñÑΓ ß«ºñáΓ∞ π¡¿óÑαßá½∞¡πε ¬«¼á¡ñπ, ¬«Γ«αá∩ ñáßΓ óá¼ ñ«ßΓπ» ¬« óßÑ¼ 17 αÑª¿¼á¼ »½áΓδ VGA. ¥Γá ¬«¼á¡ñá ñ«½ª¡á íδΓ∞ ñ«ßΓπ»¡á ó ó¿ñÑ ΓÑ¬ßΓá »α«úαá¼¼δ ¿½¿ »α«µÑñπαδ, Γá¬¿¼ «íαáº«¼, τΓ«íδ ÑÑ ¼«ª¡« íδ½« ¡áßΓα«¿Γ∞ ¡á ¿ß»«½∞º«óá¡¿Ñ ßαÑñßΓó, ¬«Γ«αδÑ »«∩ó∩Γß∩ ó íπñπΘ¿σ úαáΣ¿τÑß¬¿σ »½áΓáσ. æ½ÑñπεΘ¿⌐ ½¿ßΓ¿¡ú ß«ñÑαª¿Γ Åáß¬á½∞-»α«µÑñπαπ ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ ó¿ñÑ«-αÑª¿¼«ó. Ä¡á ¿ß»«½∞ºπÑΓ »αÑαδóá¡¿Ñ 16 ñ½∩ ñ«ßΓπ»á ¬ ñóπ¼ αÑú¿ßΓαá¼ (AL,AH). Procedure Mode(ModeHexNumber : Integer); { ºáú«½«ó«¬ ¿ «»αÑñÑ½Ñ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ } var Regs : Registers; { «»αÑñÑ½Ñ¡¿Ñ ó¡πΓαÑ¡¡¿σ »ÑαÑ¼Ñ¡¡δσ »α«µÑñπαδ } begin { ¡áτá½á ΓÑ¬ßΓá »α«úαá¼¼δ ñ½∩ »α«µÑñπαδ } with Regs do { »«ñú«Γ«ó¬á αÑú¿ßΓα«ó AL, AH ¬ »αÑαδóá¡¿ε } AL:=ModeHexNumber { »ÑαÑñáτá óσ«ñ¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó¿ñÑ«-αÑª¿¼á } AH:=$00; { Σπ¡¬µ¿∩: πßΓá¡«ó¬á ó¿ñÑ«-αÑª¿¼á } end; { ¬«¡Ñµ µ¿¬½á } Intr($10,Regs); { óδº«ó »αÑαδóá¡¿∩ ñ½∩ ΦÑßΓ¡áñµáΓ¿α¿τ¡«ú« áñαÑßá $10= } end; { = »αÑαδóá¡¿Ñ ¬«¼»∞εΓÑαá ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ αÑª¿¼á } äá¡¡á∩ »α«µÑñπαá ¡áτ¿¡áÑΓß∩ ß «»αÑñÑ½Ñ¡¿∩ óσ«ñ¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¿ »«ñú«Γ«ó¬¿ αÑú¿ßΓαá A. ì«¼Ñα ªÑ½áÑ¼«ú« ó¿ñÑ«-αÑª¿¼á »ÑαÑñáÑΓß∩ ó AL, ¼½áñΦπε τáßΓ∞ αÑú¿ßΓαá A. é ßΓáαΦπε »«½«ó¿¡π αÑú¿ßΓαá, Çì, »ÑαÑñáÑΓß∩ τ¿ß½« 0. ¥Γ« τ¿ß½« ß««íΘáÑΓ ¬«¼»∞εΓÑαπ « ¡Ñ«íσ«ñ¿¼«ßΓ¿ »α¿ óδ»«½¡Ñ¡¿¿ »αÑαδóá¡¿∩ óδºóáΓ∞ Σπ¡¬µ¿ε ñ½∩ πßΓá¡«ó¬¿ ó¿ñÑ«-αÑª¿¼á. éδºδóáÑΓß∩ »αÑαδóá¡¿Ñ, óδ»«½¡∩εΘÑÑ Σπ¡¬µ¿ε "πßΓá¡«ó¿Γ∞ ó¿ñÑ«-αÑª¿¼" ß ¡«¼Ñα«¼ ªÑ½áÑ¼«ú« ó¿ñÑ«-αÑª¿¼á ó ¬áτÑßΓóÑ óσ«ñ¡«ú« »áαá¼ÑΓαá. àß½¿ á»»áαáΓ¡á∩ ¬«¡Σ¿úπαáµ¿∩ »«ºó«½∩ÑΓ óδ»«½¡¿Γ∞ ºá»α«ΦÑ¡¡«Ñ ¿º¼Ñ¡Ñ¡¿Ñ αÑª¿¼á, ¿º¼Ñ¡Ñ¡¿Ñ óδ»«½¡∩ÑΓß∩ ¬«¼»∞εΓÑα«¼, ¿ αÑºπ½∞ΓáΓ «Γ«íαáªáÑΓß∩ ¡á φ¬αá¡Ñ. 6.1.4 êº¼Ñ¡Ñ¡¿Ñ ó¿ñÑ«-αÑª¿¼«ó: ΓÑ¬ßΓ »α«úαá¼¼δ ----------------------------------------------------------------- æá¼á »« ßÑíÑ »α«µÑñπαá ¡Ñ ∩ó½∩ÑΓß∩ »α«úαá¼¼«⌐. Å«¬áºá¡¡á∩ óδΦÑ »α«µÑñπαá ñ«½ª¡á óσ«ñ¿Γ∞ ¬á¬ ß«ßΓáó¡á∩ τáßΓ∞ ó Åáß¬á½∞-»α«úαá¼¼π. Åα«úαá¼¼á óδ»«½¡∩ÑΓ ºá»α«ß ¿ »«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε óóÑßΓ¿ ¡«¼Ñα ªÑ½áÑ¼«ú« ó¿ñÑ«-αÑª¿¼á. Program ChangeVideoMode; { ¡áτá½« ¿ ¿¼∩ »α«úαá¼¼δ } uses dos,crt; { ¿ß»«½∞º«óáΓ∞ ¼«ñπ½¿ dos, crt } var z : integer; { ó¡πΓαÑ¡¡¿Ñ »ÑαÑ¼Ñ¡¡δÑ »α«úαá¼¼δ } procedure VMode(ModeHexNumber:integer) { ¡áτá½« »α«µÑñπαδ, »ÑαÑñáτá »ÑαÑ¼Ñ¡¡«⌐ } var Regs : Registers; { ¿º »α«úαá¼¼δ } begin { ó »α«µÑñπαπ } with Regs do begin { } AL := Modehexnumber; { -''- } AH := $00; { } end; { -''- } Intr($10,Regs); { } end; { ¬«¡Ñµ »α«µÑñπαδ } begin { ¡áτá½« ú½áó¡«⌐ »α«µÑñπαδ } clrscr; directvideo:=false; { «τ¿ßΓ¿Γ∞ φ¬αá¡ } writeln('Å«ªá½π⌐ßΓá óóÑñ¿ΓÑ ¡«¼Ñα ó¿ñÑ«-αÑª¿¼á: readln(z); { ºá»α«ß ¿ óó«ñ } VMode(z); { óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ } write('ÆÑ»Ñα∞ óáΦá ß¿ßΓÑ¼á ¡áσ«ñ¿Γß∩ ó αÑª¿¼Ñ ¡«¼Ñα ',z); { ΓÑ¬ßΓ«óδ⌐ óδó«ñ ó ¡«ó«¼ αÑª¿¼Ñ } end. { ¬«¡Ñµ »α«úαá¼¼δ } 6.1.5 ÅÑαÑ¬½ετÑ¡¿Ñ ¡á αÑª¿¼ 19, ΦÑßΓ¡áñµáΓ¿α¿τ¡δ⌐ ¡«¼Ñα $13 ----------------------------------------------------------------- ìáß¬«½∞¬« ¼«Θ¡δ ßαÑñßΓóá αáí«Γδ ß µóÑΓá¼¿ »½áΓδ VGA, ¼«ª¡« »«τπóßΓó«óáΓ∞ Γ«½∞¬« »α¿ αáí«ΓÑ ó αÑª¿¼Ñ MCGA 19 (ΦÑßΓ¡áñµáΓ¿α¿τ¡δ⌐ ¡«¼Ñα 13). ¥Γ«Γ αÑª¿¼ ¿ß»«½∞ºπÑΓ αáºαÑΦÑ¡¿Ñ 320*200 »¿¬ßÑ½Ñ⌐ ¼¡«ú«µóÑΓ¡«⌐ úαáΣ¿τÑß¬«⌐ ¼áΓα¿µδ, ¬«Γ«αá∩ íδ½á »α∩¼δ¼ »αÑñΦÑßΓóÑ¡¡¿¬«¼ VGA. Æá¬«Ñ «Γ¡«ß¿ΓÑ½∞¡« ¡¿º¬«Ñ αáºαÑΦÑ¡¿Ñ «ßΓáó½∩ÑΓ ñ«ßΓáΓ«τ¡« φ¬αá¡¡«⌐ »á¼∩Γ¿ ñ½∩ óδó«ñá 256 µóÑΓ«ó, óδí¿αáÑ¼δσ ó «íΘÑ⌐ »á½¿Γαδ ¿º 262144 µóÑΓ«ó. Åα¿ »αáó¿½∞¡«¼ »α«úαá¼¼¿α«óá¡¿¿ óδ ¼«ªÑΓÑ óδíαáΓ∞ ß«íßΓóÑ¡¡δÑ 256 µóÑΓ«ó, Γá¬ τΓ« µóÑΓá¼¿ ßΓá¡ñáαΓ¡«⌐ »á½¿Γαδ óδ ¡Ñ «úαá¡¿τÑ¡δ. Åá½áΓá VGA Γá¬ªÑ »«ºó«½∩ÑΓ óá¼ óδíαáΓ∞ óáΦπ »á½¿Γαπ ¿º «íΘÑú« τ¿ß½á 262144 µóÑΓ«ó ó αÑª¿¼áσ αáí«Γδ, »«ºó«½∩εΘ¿σ ¿¼ÑΓ∞ «ñ¡«óαÑ¼Ñ¡¡« ½¿Φ∞ «Γ 2 ñ« 16 µóÑΓ«ó. éδ ¼«ªÑΓÑ ó«ß»«½∞º«óáΓ∞ß∩ φΓ¿¼ ó ΓÑ¬ßΓ«óδσ αÑª¿¼áσ, τΓ«íδ ¿º¼Ñ¡¿Γ∞ ßΓá¡ñáαΓ¡δÑ µóÑΓá, ¿ß»«½∞ºπÑ¼δÑ ßΓáαδ¼¿ úαáΣ¿τÑß¬¿¼¿ »½áΓá¼¿. æ½ÑñπεΘ¿⌐ ½¿ßΓ¿¡ú »«τΓ¿ ¿ñÑ¡Γ¿τÑ¡ »α«úαá¼¼Ñ "VMODE19" ¿º αáºñÑ½á "Åα¿¼Ñαδ »α«úαá¼¼ ñ½∩ DOS", »«ß¬«½∞¬π ÑÑ ß¬«¼»¿½¿α«óá¡¡á∩ óÑαß¿∩ Γ«ªÑ ¼«ªÑΓ íδΓ∞ ºá»πΘÑ¡á ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ DOS. Program VMode19; { ßΓα«¬á ºáú«½«ó¬á íÑº »ÑαÑ¼Ñ¡¡δσ } var Regs: Registers; { «»αÑñÑ½Ñ¡¿Ñ ó¡πΓαÑ¡¡¿σ »ÑαÑ¼Ñ¡¡δσ »α«úαá¼¼δ } begin { ¡áτá½« ú½áó¡«⌐ τáßΓ¿ »α«úαá¼¼δ } with Regs do begin { »«ñú«Γ«ó¬á αÑú¿ßΓα«ó AL,AH ¬ óδº«óπ »αÑαδóá¡¿∩ } AL:=$13; AH:=$00; { óó«ñ ó¿ñÑ«-αÑª¿¼á 19 = ΦÑßΓ-α¿τ¡«Ñ $13 } end; { ¬«¡Ñµ µ¿¬½á } Intr($10,Regs); { óδº«ó »αÑαδóá¡¿∩ ñ½∩ ΦÑßΓ-α¿τ¡«ú« áñαÑßá $10= } end. { = Σπ¡¬µ¿∩ ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ ó¿ñÑ«-αÑª¿¼á } 6.1.6 êß»«½∞º«óá¡¿Ñ ¬«¼á¡ñ ¿º DOS ----------------------------------------------------------------- èαπ»¡δ¼ »αÑ¿¼πΘÑßΓó«¼ »α«úαá¼¼¿α«óá¡¿∩ ¡á Turbo Pascal ∩ó½∩ÑΓß∩ ó«º¼«ª¡«ßΓ∞ ß«ºñáóáΓ∞ ¿ σαá¡¿Γ∞ ¬«¼»¿½¿α«óá¡¡δÑ óÑαß¿¿ óáΦ¿σ »α«úαá¼¼. è«¼»¿½¿α«óá¡¡δÑ »α«úαá¼¼δ ¿¼ÑεΓ ßπΣΣ¿¬ß ".EXE". ¥Γ« Σá¬Γ¿τÑß¬¿ »α«úαá¼¼δ ¡á ¼áΦ¿¡¡«¼ ∩ºδ¬Ñ, ¬«Γ«αδÑ ¼«úπΓ óδºδóáΓ∞ß∩ ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ DOS íÑº ºá»πß¬á ßαÑñδ Turbo Pascal. ùΓ«íδ ó«ß»«½∞º«óáΓ∞ß∩ ¬«¼á¡ñ«⌐, ñ«ßΓáΓ«τ¡« óóÑßΓ¿ ÑÑ ¿¼∩ íÑº αáßΦ¿αÑ¡¿∩ ".EXE". Åα¿¼Ñα«¼ ¼«ªÑΓ ß½πª¿Γ∞ Γá¬á∩ »α«úαá¼¼á, ¬á¬ VMODE19, ¡á»¿ßá¡¡á∩ ¿ ß¬«¼»¿½¿α«óá¡¡á∩ ß Åáß¬á½∩. Å«ß½Ñ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼á σαá¡¿Γß∩ ¡á ñ¿ß¬Ñ ¬á¬ VMODE19.EXE. ¥Γ«Γ Σá⌐½ ¡áºδóáÑΓß∩ ¿ß»«½¡∩Ñ¼«⌐ »α«úαá¼¼«⌐. æπΣΣ¿¬ß ".EXE" φΓ« ß«¬αáΘÑ¡¿Ñ «Γ "EXEcutable" ("¿ß»«½¡∩Ñ¼á∩") ¿ π¬áºδóáÑΓ ¡á ó«º¼«ª¡«ßΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡« ºá»πßΓ¿Γ∞ φΓπ »α«úαá¼¼π ¡á ¿ß»«½¡Ñ¡¿Ñ. ä½∩ ºá»πß¬á »α«úαá¼¼δ ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ DOS Σá⌐½ VMODE.EXE ¡πª¡« »ÑαÑ»¿ßáΓ∞ ó ñ¿αÑ¬Γ«α¿ε DOS. ï¿í« óδ ¼«ªÑΓÑ ñÑαªáΓ∞ ñ«»«½¡¿ΓÑ½∞¡δÑ ¬«¼á¡ñδ DOS ó «ΓñÑ½∞¡«⌐ ñ¿αÑ¬Γ«α¿¿. é φΓ«¼ ß½πτáÑ ¼áαΦαπΓ ñ«ßΓπ»á ¬ φΓ«⌐ ñ¿αÑ¬Γ«α¿¿ ñ«½ªÑ¡ íδΓ∞ ºáñá¡ ó Σá⌐½Ñ AUNOEXEC.BAT. ä½∩ φΓ«ú« »«½¡«Ñ ¿¼∩ ¼áαΦαπΓá ñ«ßΓπ»á ¬ φΓ«⌐ ¡«óδ⌐ ñ¿αÑ¬Γ«α¿¿ ß½ÑñπÑΓ π¬áºáΓ∞ ó ¬«¼á¡ñÑ PATH Σá⌐½á AUTOEXEC.BAT. éδ»«½¡¿ó π¬áºá¡¡δÑ Φáú¿, óδ ß¼«ªÑΓÑ óδºδóáΓ∞ ¬«¼á¡ñπ VMODE19 ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ DOS, ¬á¬ Ñß½¿ íδ φΓ« íδ½á ßΓá¡ñáαΓ¡á∩ ¬«¼á¡ñá DOS - MODE. 6.2 îá¡¿»π½¿α«óá¡¿Ñ µóÑΓá¼¿ ----------------------------------------------------------------- æαáó¡¿ΓÑ½∞¡« ß αá¡¡¿¼¿ óÑαß¿∩¼¿, »½áΓá VGA »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ í«½∞ΦÑ µóÑΓ«ó. æπΘÑßΓóπεΓ αáº½¿τ¡δÑ ß»«ß«íδ ¼á¡¿»π½¿α«óá¡¿∩ µóÑΓá¼¿ óáΦÑú« ΓÑ¬ßΓá, αá¼¬¿ ¿ »á½¿Γαδ. éßÑú« «íΘá∩ »á½¿Γαá VGA »«ºó«½∩ÑΓ óδí¿αáΓ∞ ¿º 262144 µóÑΓ«ó. 6.2.1 ûóÑΓá αá¼¬¿ ó αÑª¿¼Ñ 19 ----------------------------------------------------------------- ùΓ«íδ »«½πτ¿Γ∞ ¬αáß¿ó«Ñ µóÑΓ«ó«Ñ αÑΦÑ¡¿Ñ φ¬αá¡á, ¼δ ñ«½ª¡δ »αÑªñÑ óßÑú« ß«ºñáΓ∞ αá¼¬π. Éá¼¬á φ¬αá¡á ¡Ñ ñ«½ª¡á ¼ÑΦáΓ∞ αáí«ΓÑ, »α«¿ßσ«ñ∩ΘÑ⌐ ¡á φ¬αá¡Ñ. ûóÑΓá ñ«½ª¡δ íδΓ∞ ß«ú½áß«óá¡δ ñαπú ß ñαπú«¼. æ½ÑñπεΘá∩ »α«µÑñπαá óδ»«½¡∩ÑΓ φΓπ ºáñáτπ, áñαÑßπ∩ß∞ ¬ ¬«¡¬αÑΓ¡δ¼ Σπ¡¬µ¿∩¼ BIOS »½áΓδ VGA τÑαÑº »αÑαδóá¡¿Ñ 16. ÅαÑαδóá¡¿Ñ ¿ αÑú¿ßΓαδ »«ºó«½∩εΓ ¡á¼ ¿º¼Ñ¡∩Γ∞ πßΓá¡«ó¬¿ »½áΓδ VGA, ¬á¬ φΓ« ¼δ ñÑ½á½¿ ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ αÑª¿¼«ó. ìá φΓ«Γ αáº ó¼ÑßΓ« ¿º¼Ñ¡Ñ¡¿∩ αÑª¿¼«ó ¼δ ¿º¼Ñ¡¿¼ µóÑΓ αá¼¬¿ φ¬αá¡á. æ½ÑñπεΘ¿⌐ ½¿ßΓ¿¡ú »αÑñßΓáó½∩ÑΓ ß«í«⌐ Åáß¬á½∞-»α«µÑñπαπ FRAMECOLOR: Procedure FRAMECOLOR(ColorNumber:Integer); { πßΓá¡áó½¿óáÑΓ ¡«¼Ñα µóÑΓá αá¼¬¿ } var Regs:Registers; { αÑú¿ßΓα«óδÑ »ÑαÑ¼Ñ¡¡δÑ } begin { ¡áτá½« ú½áó¡«⌐ »α«úαá¼¼δ } with Regs do begin { ºá»«½¡Ñ¡¿Ñ αÑú¿ßΓα«óδσ »ÑαÑ¼Ñ¡¡δσ: } AL:=$01; { πßΓá¡«ó¬á αÑú¿ßΓαá αá¼¬¿ } AH:=$10; { πßΓá¡«ó¬á αÑú¿ßΓαá »á½¿Γαδ } BH:=ColorNumber; { óó«ñ µóÑΓá αá¼¬¿ } end; { αÑú¿ßΓα«óδÑ »ÑαÑ¼Ñ¡¡δÑ ºá»«½¡Ñ¡δ } Intr($10,Regs); { óδº«ó »αÑαδóá¡¿∩ »« áñαÑßπ $10 } end; { ¬«¡Ñµ »α«µÑñπαδ } ¥Γá »α«µÑñπαá Γá¬ªÑ ¼«ªÑΓ íδΓ∞ óßΓα«Ñ¡á ó »α«úαá¼¼π ¿½¿ ¼«ñπ½∞. Å«¼¡¿ΓÑ, τΓ« »α«µÑñπαδ ó Åáß¬á½∞-»α«úαá¼¼Ñ óó«ñ∩Γß∩ ó ºáú«½«ó«¬ »α«úαá¼¼δ »«ñ «»αÑñÑ½Ñ¡¿∩¼¿ »ÑαÑ¼Ñ¡¡δσ. àß½¿ »α«µÑñπαá »«¼ÑΘáÑΓß∩ ó ¼«ñπ½∞, «¡ ñ«½ªÑ¡ íδΓ∞ óóÑñÑ¡ ó ºáú«½«ó«¬ »α«úαá¼¼δ ¡áñ «»αÑñÑ½Ñ¡¿∩¼¿ »ÑαÑ¼Ñ¡¡δσ ó «»ÑαáΓ«αÑ uses. é «í«¿σ ß½πτá∩σ ú½áó¡á∩ »α«úαá¼¼á (¡áτ¿¡áεΘá∩ß∩ ¬«¼á¡ñ«⌐ Åáß¬á½∩ begin) íπñÑΓ óδú½∩ñÑΓ∞ «ñ¿¡á¬«ó«. êß»«½∞º«óá¡¿Ñ "ßá¼«ñÑ½∞¡δσ" ¬«¼á¡ñ Åáß¬á½∩ ¡¿τÑ¼ ¡Ñ «Γ½¿τáÑΓß∩ «Γ ¿ß»«½∞º«óá¡¿Ñ ßΓá¡ñáαΓ¡δσ ¬«¼á¡ñ Åáß¬á½∩. Å«ß½Ñ Γ«ú«, ¬á¬ »α«µÑñπαá ß«ºñá¡á, ½εíá∩ »α«úαá¼¼á ß¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ FRAMECOLOR(...), »ÑαÑñáóá∩ Ñ⌐ º¡áτÑ¡¿∩ «Γ 0 ñ« 255 (ó αÑª¿¼Ñ 19) ñ½∩ óδí«αá ó »á½¿ΓαÑ µóÑΓá αá¼¬¿ φ¬αá¡á. ä¿á»áº«¡ óó«ñ¿¼δσ º¡áτÑ¡¿⌐ ¼«ªÑΓ óáα∞¿α«óáΓ∞ß∩ ó ºáó¿ß¿¼«ßΓ¿ «Γ αÑª¿¼á φ¬αá¡á ¿ τ¿ß½á µóÑΓ«ó ó ß««ΓóÑΓßΓóπεΘÑ⌐ »á½¿ΓαÑ. 6.2.2 ûóÑΓá ΓÑ¬ßΓá ó αÑª¿¼Ñ 19 ----------------------------------------------------------------- é απ¬«ó«ñßΓóÑ Heimsoeth/Borland Software «»¿ßá¡δ αáº½¿τ¡δÑ ß»«ß«íδ Σ«α¼áΓ¿α«óá¡¿∩ ΓÑ¬ßΓ«ó«ú« óδó«ñá »α¿ αáí«ΓÑ ß Turbo Pascal. æπΘÑßΓóπεΓ ñóÑ ¬«¼á¡ñδ: TEXTCOLOR(ColorNumber); ¿ TEXTBACKGROUND(ColorNumber); ¥Γ¿ ¬«¼á¡ñδ »αÑ¬αáß¡« αáí«ΓáεΓ »α¿ óδó«ñÑ ΓÑ¬ßΓ«ó ó í«½∞Φ¿¡ßΓóÑ ó¿ñÑ«-αÑª¿¼«ó. è ß«ªá½Ñ¡¿ε, «¡¿ ¡Ñ ú«ñ∩Γß∩ ó αÑª¿¼Ñ 19 (ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ 13). ì« «íΩÑñ¿¡¿ó φΓ¿ ñóÑ ¬«¼á¡ñδ, óδ ¼«ªÑΓÑ óδíαáΓ∞ ñ½∩ ΓÑ¬ßΓá «ñ¿¡ ¿º 128 µóÑΓ«ó, Ñß½¿ µóÑΓ ¡«¼Ñα 0 íπñÑΓ µóÑΓ«¼ Σ«¡á. àß½¿ óδ σ«Γ¿ΓÑ πßΓá¡«ó¿Γ∞ ¡«óδ⌐ µóÑΓ Σ«¡á, φΓ« ¼«ª¡« ßñÑ½áΓ∞, ¼á¡¿»π½¿απ∩ µóÑΓ«¼ ¡«¼Ñα 0. ì¿ªÑ »α¿ó«ñ¿Γß∩ »α«µÑñπαá COLORTEXT, »αÑñ¡áº¡áτÑ¡¡á∩ ñ½∩ πßΓá¡«ó¬¿ µóÑΓ«ó ΓÑ¬ßΓá ó αÑª¿¼Ñ 19: Procedure COLORTEXT(Color:Integer); begin { πßΓá¡«ó¬¿ úαá¡¿τ¡δσ º¡áτÑ¡¿⌐ óó«ñá «Γ 0 ñ« 127 } if Color<0 then Color:=0; if Color>127 then Color:=127-Color; textbackground(Color div 16); textcolor(Color-((Color div 16)*16)); end; { óδº«óδ αÑú¿ßΓα«ó ñóπ¼∩ ßΓá¡ñáαΓ¡δ¼¿ ¬«¼á¡ñá¼¿ } 6.2.3 ûóÑΓ«óá∩ »á½¿Γαá ó ó¿ñÑ«-αÑª¿¼Ñ 19 ----------------------------------------------------------------- îá¡¿»π½¿α«óá¡¿Ñ ßá¼«⌐ »á½¿Γα«⌐ ¡Ñß¬«½∞¬« ß½«ª¡ÑÑ. Å« á¡á½«ú¿¿ »αÑñßΓáó¿¼, τΓ« αÑú¿ßΓαδ »á½¿Γαδ ¡áσ«ñ∩Γß∩ ó í«½∞Φ«¼ ºñá¡¿¿: æπΘÑßΓóπÑΓ ñóÑα∞, τÑαÑº ¬«Γ«απε ¼δ »«»áñáÑ¼ ß π½¿µδ (»αÑαδóá¡¿Ñ $10) ó ºñá¡¿Ñ (αÑú¿ßΓα »á½¿Γαδ, AH=$10). ìá µ«¬«½∞¡«¼ φΓáªÑ ºñá¡¿∩ (αÑú¿ßΓα µóÑΓá, AL=$10) ¡áσ«ñ¿Γß∩ 256 ñóÑαÑ⌐ (¡«¼Ñαá ó »á½¿ΓαÑ, BX=óó«ñ), óÑñπΘ¿σ ó ñαπú¿Ñ ¬«¼¡áΓδ. àß½¿ ñóÑα∞ «Γ¬αδΓá (óó«ñ«¼ ¡«¼Ñαá ó »á½¿ΓαÑ), ¼δ «í¡áαπª¿óáÑ¼ ó ¬«¼¡áΓÑ Γα¿ ½á¼»δ. Äñ¡á ¿º ¡¿σ ¿¼ÑÑΓ ú«½πí«⌐ »½áΣ«¡, «ñ¡á ºÑ½Ñ¡δ⌐, ¿ «ñ¡á ¬αáß¡δ⌐ (αÑú¿ßΓαδ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ: CL, CH ¿ DH). èáªñá∩ ½á¼»á ¿¼ÑÑΓ »ÑαÑ¬½ετáΓÑ½∞ ∩α¬«ßΓ¿, αÑúπ½¿απεΘ¿⌐ ÑÑ ¿¡ΓÑ¡ß¿ó¡«ßΓ∞ Γá¬¿¼ «íαáº«¼, τΓ«íδ «ßóÑΘÑ¡¿Ñ ¬«¼¡áΓδ ¿¼Ñ½« ªÑ½áÑ¼πε µóÑΓ«óπε ¬«¼»«º¿µ¿ε. é óáΦÑ¼ ¬«¼»∞εΓÑαÑ φΓ« ß««ΓóÑΓßΓóπÑΓ πßΓá¡«ó¬Ñ πα«ó¡Ñ⌐ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ ñ½∩ ú«½πí«⌐, ºÑ½Ñ¡«⌐ ¿ ¬αáß¡«⌐ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ ó αÑú¿ßΓαáσ CL, CH ¿ DH º¡áτÑ¡¿∩¼¿ «Γ 0 ñ« 63. ç¡áτÑ¡¿Ñ 0 «º¡áτáÑΓ ó««íΘÑ «ΓßπΓßΓó¿Ñ ñá¡¡«⌐ ¬«¼»«¡Ñ¡Γδ, á 63 - óδßΦπε ¿¡ΓÑ¡ß¿ó¡«ßΓ∞ ¬«¼»«¡Ñ¡Γδ. Å«ß¬«½∞¬π ¼δ ¿¼ÑÑΓ Γα¿ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γδ, ¬áªñá∩ ¿º ¬«Γ«αδσ ¼«ªÑΓ ¿¼ÑΓ∞ 64 αáº¡δσ πα«ó¡∩, Γ« óßÑú« »á½¿Γαá ¼«ªÑΓ ¿¼ÑΓ∞ 64*64*64=262144 µóÑΓá. Äñ¡á¬«, αáí«ΓáΓ∞ ß« óßÑ¼¿ φΓ¿¼¿ µóÑΓá¼¿ «ñ¡«óαÑ¼Ñ¡¡« ¡Ñó«º¼«ª¡«. é αÑª¿¼Ñ 19 «ñ¡«óαÑ¼Ñ¡¡« ñ«ßΓπ»¡á »á½¿Γαá ¿º 256 µóÑΓ«ó. é«ºóαáΘá∩ß∞ ¬ ¡áΦÑ⌐ á¡á½«ú¿¿, ñ½∩ πßΓá¡«ó¬¿ »á½¿Γαδ ¿º 256 µóÑΓ«ó ¼δ ñ«½ª¡δ ó«⌐Γ¿ ó ¬áªñπε ¿º 256 ¬«¼¡áΓ ¿ πßΓá¡«ó¿Γ∞ Γá¼ ªÑ½áÑ¼«Ñ «ßóÑΘÑ¡¿Ñ. Åα¿¼Ñαδ µóÑΓ«ó: â«½πí«⌐ + çÑ½Ñ¡δ⌐ + èαáß¡δ⌐ = ûóÑΓ 63 63 63 = üÑ½δ⌐ 45 30 30 = æÑα«-ú«½πí«⌐ 10 20 0 = ÆÑ¼¡«-ºÑ½Ñ¡δ⌐ ÆÑ»Ñα∞ αáßß¼«Γα¿¼ »α«µÑñπαπ PALETTE. Ä¡á ß½πª¿Γ ñ½∩ Γ«ú«, τΓ«íδ ó«⌐Γ¿ ó «ñ¡π ¿º ¬«¼¡áΓ ¡áΦÑú« ºñá¡¿∩ ¿ πßΓá¡«ó¿Γ∞ Γá¼ Γα¿ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γδ ñ½∩ «ñ¡«ú« óδíαá¡¡«ú« µóÑΓá »á½¿Γαδ. Procedure PALETTE(ColorNumber,Blue,Green,Red : byte); var Regs:Registers; begin with Regs do begin { »«ñú«Γ«ó¿Γ∞ αÑú¿ßΓαδ ¬ »αÑαδóá¡¿ε } AL:=$10; { πßΓá¡«ó¿Γ∞ αÑú¿ßΓα µóÑΓá } AH:=$10; { πßΓá¡«ó¿Γ∞ αÑú¿ßΓα »á½¿Γαδ } BX:=ColorNumber; { ¡«¼Ñα ó »á½¿ΓαÑ } CL:=Blue; { º¡áτÑ¡¿Ñ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ ú«½πí«⌐ ¬«¼»«¡Ñ¡Γδ } CH:=Green; { º¡áτÑ¡¿Ñ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ ºÑ½Ñ¡«⌐ ¬«¼»«¡Ñ¡Γδ } DH:=Red: { º¡áτÑ¡¿Ñ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ ¬αáß¡«⌐ ¬«¼»«¡Ñ¡Γδ } end; Intr($10,Regs); { óδº«ó »αÑαδóá¡¿∩ HEX 10 } end; ç¡áτÑ¡¿Ñ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ ¬áªñ«⌐ µóÑΓ«ó«⌐ ¬«¼»«¡Ñ¡Γδ »ÑαÑñáÑΓß∩ ó ó¿ñÑ »ÑαÑ¼Ñ¡¡«⌐. öπ¡¬µ¿¿ BIOS, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ πßΓá¡«ó¬¿ »á½¿Γαδ, óδºδóáεΓß∩ »«ßαÑñßΓó«¼ óó«ñá ΓαÑíπÑ¼δσ º¡áτÑ¡¿⌐ ó ß««ΓóÑΓßΓóπεΘ¿σ αÑú¿ßΓαáσ, ¬á¬ φΓ« íδ½« »«¬áºá¡« ó »αÑñδñπΘÑ¼ »α¿¼ÑαÑ. ì«¼Ñα »αÑαδóá¡¿∩, óδíαá¡¡δ⌐ ¡«¼Ñα ó »á½¿ΓαÑ ¿ º¡áτÑ¡¿∩ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ ñ½∩ ¬áªñ«ú« µóÑΓá óó«ñ∩Γß∩ ó¼ÑßΓÑ. Å«ß½Ñ »ÑαÑñáτ¿ φΓ¿σ º¡áτÑ¡¿⌐ óδíαá¡¡δ⌐ ¡«¼Ñα íπñÑΓ ß«ñÑαªáΓ∞ πßΓá¡«ó½Ñ¡¡δ⌐ óá¼¿ µóÑΓ. ¥Γ« ¼«ªÑΓ íδΓ∞ ½εí«⌐ µóÑΓ ¿º «íΘÑ⌐ »á½¿Γαδ VGA. 6.2.4 ô»α«ΘÑ¡¡δÑ ¼á¡¿»π½∩µ¿¿ ß »á½¿Γα«⌐ ----------------------------------------------------------------- Ä»¿ßá¡¡á∩ óδΦÑ ¬«¼á¡ñá "PALETTE(ì«¼Ñα, â«½πí«⌐, çÑ½Ñ¡δ⌐, èαáß¡δ⌐)" »«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε ºá «ñ¿¡ óδº«ó πßΓá¡«ó¿Γ∞ «ñ¿¡ µóÑΓ ¿º 256 µóÑΓ«ó »á½¿Γαδ αÑª¿¼á VGA 19. àß½¿ óδ σ«Γ¿ΓÑ »α¿ »«¼«Θ¿ φΓ«⌐ ¬«¼á¡ñδ πßΓá¡«ó¿Γ∞ óßε »á½¿Γαπ µÑ½¿¬«¼, óá¼ »α¿ñÑΓß∩ óó«ñ¿Γ∞ º¡áτÑ¡¿∩ 256 αáº, τΓ« ñ«ßΓáΓ«τ¡« πΓ«¼¿ΓÑ½∞¡«. æ½Ññ«óáΓÑ½∞¡«, »«½Ñº¡« ¿¼ÑΓ∞ ¬«¼á¡ñπ, ¬«Γ«αá∩ »«ºó«½¿½á íδ ßαáºπ πßΓá¡áó½¿óáΓ∞ ¡Ñß¬«½∞¬« µóÑΓ«ó »á½¿Γαδ. Åα«µÑñπαá BLEND »αÑñ¡áº¡áτÑ¡á ñ½∩ ß«ºñá¡¿∩ ½¿¡Ñ⌐¡«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ »½áó¡«ú« »ÑαÑσ«ñá ¿º µóÑΓá ó µóÑΓ ó¡πΓα¿ óδíαá¡¡«ú« ñ¿á»áº«¡á ¡«¼Ñα«ó. ¥Γá ¬«¼á¡ñá ¿ºíáó¿Γ óáß «Γ πßΓá¡«ó¬¿ ¬áªñ«ú« »α«¼ÑªπΓ«τ¡«ú« µóÑΓá "óαπτ¡πε". ÄΓΓÑ¡¬¿ »α«¼ÑªπΓ«τ¡δσ µóÑΓ«ó ó ºáñá¡¡«¼ ñ¿á»áº«¡Ñ á¡á½«ú¿τ¡δ Γ«¼π, ¬á¬ »α«¿ßσ«ñ¿Γ »ÑαÑσ«ñ »α¿ ß¼ÑΦÑ¡¿¿ ñóπσ á¬óáαÑ½∞¡δσ ¬αáß«¬. êß»«½∞º«óá¡¿Ñ »α«µÑñπαδ PALETTE ó ¡Ñ⌐ «í∩ºáΓÑ½∞¡«: procedure Blend(Color1,Blue1,Green1,Red1, Color2,Blue2,Green2,Red2); var Number,Bl,Gr,Re: Integer; (* µóÑΓá ¼Ñªñπ ñóπ¼∩ ºáñá¡¡δ¼¿ *) (* ºá»«½¡∩εΓß∩ »ÑαÑσ«ñ¡δ¼¿ «ΓΓÑ¡¬á¼¿ *) begin Number:= Color2 - Color1; for x :=0 to Number do begin { ß«ºñá¡¿Ñ »ÑαÑσ«ñ¡δσ «ΓΓÑ¡¬«ó } if Number>0 then begin { Color2 ñ«½ªÑ¡ íδΓ∞ í«½∞ΦÑ Color1 } Bl:= (Blue1*(Number-x) + Blue2*(x)) div Number; Gr:= (Green1*(Number-x)+ Green2*(x))div Number; Rd:= (Red1*(Number-x) + Red2*(x)) div Number; end; Palette(Color1+x,Bl,Gr,Re); { óδº«ó φΓ«⌐ »α«µÑñπαδ «í∩ºáΓÑ½Ñ¡ } end; end; 6.2.5 Åα«ß¼«Γα »á½¿Γαδ ----------------------------------------------------------------- Å«φ¬ß»Ñα¿¼Ñ¡Γ¿α«óáó ß ¬«¼á¡ñá¼¿ PALETTE ¿ BLEND, óδ ß«ºñáñ¿ΓÑ ΓÑ¼ ßá¼δ¼ ¬á¬¿Ñ-Γ« ß«íßΓóÑ¡¡δÑ »á½¿Γαδ. ä« ß¿σ »«α óδ ¡Ñ ¼«ú½¿ ó¿ºπá½∞¡« ¡áí½εñáΓ∞ ßñÑ½á¡¡δÑ óá¼¿ ¿º¼Ñ¡Ñ¡¿∩ »á½¿Γαδ. ÆÑ»Ñα∞ óá¼ »«¡áñ«í¿Γß∩ óδ»«½¡¿Γ∞ »α«ß¼«Γα »á½¿Γαδ, τΓ«íδ »«ß¼«ΓαÑΓ∞, ¬á¬¿Ñ ÑΘÑ ¿º¼Ñ¡Ñ¡¿∩ ¡πª¡« ßñÑ½áΓ∞. ìá»α¿¼Ñα, Ñß½¿ óδ σ«ΓÑ½¿ ß«ºñáΓ∞ »á½¿Γαπ ÑßΓÑßΓóÑ¡¡δσ µóÑΓ«ó, óδ ñ«½ª¡δ íδ½¿ πτÑßΓ∞, τΓ« ¡Ñ ß½ÑñπÑΓ ó¬½ετáΓ∞ ó ¡ÑÑ ß½¿Φ¬«¼ ¼¡«ú« ¡Ñ«íδτ¡« ∩α¬¿σ µóÑΓ«ó. é »α¿α«ñÑ í«½∞Φ¿¡ßΓó« µóÑΓ«ó »αÑñßΓáó½∩ÑΓ ß«í«⌐ Γ«¡¬¿Ñ ¬«¼í¿¡áµ¿¿ á¡á½«ú¿τ¡δσ µóÑΓ«ó ¿½¿ ßÑαδÑ Γ«¡á ß« ß½áí«⌐ »α¿¼Ñß∞ε µóÑΓá. êß»«½∞ºπ∩ Γá¬¿Ñ µóÑΓá, óδ ¡Ñ ß«ºñáñ¿ΓÑ α¿ßπ¡¬«ó ß ¡ÑÑßΓÑßΓóÑ¡¡δ¼¿ µóÑΓá¼¿. ìáßδΘÑ¡¡δÑ Γ«¡á ¡πª¡« ¿ß»«½∞º«óáΓ∞ ß»Ñµ¿á½∞¡«, Ñß½¿ óá¼ ¡πª¡« ¡áα¿ß«óáΓ∞ ∩α¬¿⌐ µóÑΓ«¬, ¬αáß¡δ⌐ ßó¿ΓÑα, ªÑ½Γδ⌐ áóΓ«¼«í¿½∞, Σ¿«½ÑΓ«óδ⌐ Φáα¿¬ ¿ Γ.ñ. ÆÑ¼ ßá¼δ¼ óδ óδñÑ½¿ΓÑ ¿¡ΓÑαÑßπεΘ¿⌐ óáß »αÑñ¼ÑΓ ¡á Σ«¡Ñ ÑßΓÑßΓóÑ¡¡δσ, »α¿ú½πΦÑ¡¡δσ µóÑΓ«ó. ò«α«Φ« ¿¼ÑΓ∞ ß¿ßΓÑ¼áΓ¿º¿α«óá¡¡δ⌐ ¼ÑΓ«ñ ß«ºñá¡¿∩ αÑá½¿ßΓ¿τ¡δσ »á½¿Γα, ¬«Γ«αδ⌐ ñáóá½ íδ ó«º¼«ª¡«ßΓ∞ ñ«ßΓπ»á ¬ Φ¿α«¬«¼π ñ¿á»áº«¡π µóÑΓ«ó ß αáº¡«⌐ ßΓÑ»Ñ¡∞ε ¿¡ΓÑ¡ß¿ó¡«ßΓ¿. Äñ¿¡ ¿º φΓ¿σ ß»«ß«í«ó ß«ßΓ«¿Γ ó ß«ºñá¡¿¿ íáº«ó«⌐ »á½¿Γαδ ß 16 µóÑΓá¼¿ ß»Ñ¬Γαá. èáªñδ⌐ ¿º φΓ¿σ 16 íáº«óδσ µóÑΓ«ó ¼«ªÑΓ íδΓ∞ αáºí¿Γ ¡á 16 πα«ó¡Ñ⌐ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿. ¥Γ« »«ºó«½∩ÑΓ ¿¼ÑΓ∞ «íΘπε »á½¿Γαπ ó 16*16=256 µóÑΓ«ó. Åα¿ ß«ºñá¡¿¿ »á½¿Γαδ Γá¬¿¼ ß»«ß«í«¼ óáª¡« ¿¼ÑΓ∞ ó«º¼«ª¡«ßΓ∞ íδßΓα« óºú½∩¡πΓ∞, τΓ« ªÑ π óáß »«½πτáÑΓß∩. ä½∩ φΓ«ú« ßπΘÑßΓóπÑΓ »α«µÑñπαá SHOWPALETTE, ¬«Γ«αá∩ óδó«ñ¿Γ óßÑ 256 µóÑΓ«ó ΓÑ¬πΘÑ⌐ »á½¿Γαδ ñ½∩ «íº«αá ¡á φ¬αá¡. Procedure SHOWPALETTE; { ÆÑ¬πΘá∩ »á½¿Γαá íπñÑΓ } begin { óδóÑñÑ¡á ¡á φ¬αá¡. } for Y:=0 to 199 do begin { Å« «ß¿ X »«ß½Ñ Γ«τ¬¿ 255 } for X:=0 to 319 do begin { íπñπΓ »«óΓ«αÑ¡δ µóÑΓá »á½¿Γαδ } PokeY := Y*20 { ¡áτ¿¡á∩ ß ¡«¼Ñαá 0 } PokeX := X; Color ;= X; Meml[$A000+PokeY:Pokex]:=Color; { ¡áα¿ß«óáΓ∞ µóÑΓá ¡á φ¬αá¡Ñ } end; end; end; { ¬«¡Ñµ »α«µÑñπαδ } äá¡¡á∩ »α«µÑñπαá ¿¼ÑÑΓ ¡Ñ¬«Γ«αδÑ «ß«íÑ¡¡«ßΓ¿, ΓαÑíπεΘ¿Ñ »«∩ß¡Ñ¡¿⌐. é«-»Ñαóδσ, «¡á ß«ñÑαª¿Γ ñóá ó½«ªÑ¡¡δσ µ¿¬½á, ¬«Γ«αδÑ »α«íÑúáεΓ »« óßÑ¼ 320*200 »¿¬ßÑ½∩¼ φ¬αá¡á ó αÑª¿¼Ñ 19. èáªñδ⌐ µóÑΓ ñ¿á»áº«¡á »á½¿Γαδ »«ß½Ññ«óáΓÑ½∞¡« óδó«ñ¿Γß∩ »« ú«α¿º«¡Γá½¿, Γá¬ τΓ« µóÑΓ óÑαΓ¿¬á½∞¡«⌐ »«½«ßδ ó ¬áªñ«⌐ x-¬««αñ¿¡áΓÑ φ¬αá¡á «ñ¿¡á¬«ó. Y-º¡áτÑ¡¿∩ ñ«½ª¡δ π¼¡«ªáΓ∞ß∩ ¡á 20, τΓ«íδ ß««ΓóÑΓßΓó«óáΓ∞ ΓαÑí«óá¡¿∩¼ ¬«¼á¡ñδ Åáß¬á½∩ πßΓá¡«ó¬¿ »á¼∩Γ¿. ç¡áτÑ¡¿∩ »«¼ÑΘáεΓß∩ ó φ¬αá¡¡πε »á¼∩Γ∞ »«ßαÑñßΓó«¼ »αÑñ«»αÑñÑ½Ñ¡¡«ú« ¼áßß¿óá "MEML[...]". Åα¿ ó¬½ετÑ¡¿¿ ñá¡¡«⌐ »α«µÑñπαδ ó »α«úαá¼¼π SHOWPALETTE íπñÑΓ ¡Ñ¼Ññ½Ñ¡¡« óδó«ñ¿Γ∞ ¡á φ¬αá¡ óßÑ 256 µóÑΓ«ó ΓÑ¬πΘÑ⌐ »á½¿Γαδ αÑª¿¼á 19. Åαáóá∩ τáßΓ∞ φ¬αá¡á, ß x-¬««αñ¿¡áΓá¼¿ í«½∞ΦÑ 255, íπñπΓ »«óΓ«α∩Γ∞ »ÑαóδÑ 64 µóÑΓá »á½¿Γαδ. àß½¿ óδ ¡Ñ ó¡«ß¿½¿ ó »á½¿Γαπ ¡¿¬á¬¿σ ¿º¼Ñ¡Ñ¡¿⌐, Γ« ¬«¼á¡ñá SHOWPALETTE óδóÑñÑΓ ßΓá¡ñáαΓ¡πε »á½¿Γαπ VGA. Åα¿ φΓ«¼ «íαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ, τΓ« ó ñá¡¡«⌐ »á½¿ΓαÑ ¼¡«ú¿Ñ ¡«¼Ñαá ¡Ñ «»αÑñÑ½Ñ¡δ ¿½¿ πßΓá¡«ó½Ñ¡δ ó τÑα¡δ⌐ µóÑΓ. äαπúá∩ »α«í½Ñ¼á ß«ßΓ«¿Γ ó Γ«¼, τΓ« ¼¡«ú¿Ñ µóÑΓá ¡ÑÑßΓÑßΓóÑ¡¡« ∩α¬¿. ûóÑΓá «Γ 0 ñ« 15 ß««ΓóÑΓßΓóπεΓ ßΓá¡ñáαΓ¡«⌐ »á½¿ΓαÑ »½áΓδ EGA. Æ«½∞¬« ¡«¼Ñαá «Γ 16 ñ« 31 ß«ñÑαªáΓ ÑßΓÑßΓóÑ¡¡πε »α«úαÑßß¿ε ßÑαδσ Γ«¡«ó «Γ τÑα¡«ú« ¬ íÑ½«¼π. é ßΓá¡ñáαΓ¡«⌐ »á½¿ΓαÑ Γαπñ¡« ¡á⌐Γ¿ α∩ñ«¼ ñαπú «Γ ñαπúá »ÑαÑσ«ñ¡δÑ «ΓΓÑ¡¬¿. ìá»α¿¼Ñα, Ñß½¿ óá¼ ¡πª¡á »α«úαÑßß¿∩ µóÑΓ«ó «Γ ßóÑΓ½«-ú«½πí«ú« ¬ ß¿¡Ñ-τÑα¡«¼π ñ½∩ Γ«ú«, τΓ«íδ ¡áα¿ß«óáΓ∞ ¡Ñí«, óδ ñ«½ª¡δ íπñÑΓÑ ß«ºñáΓ∞ ßó«ε ß«íßΓóÑ¡¡πε »á½¿Γαπ. Åα¿ »«¼«Θ¿ ¬«¼á¡ñδ SHOWPALETTE ¿ºπτ¿ΓÑ ßΓá¡ñáαΓ¡πε »á½¿Γαπ VGA. é ß½ÑñπεΘÑ¼ αáºñÑ½Ñ ¼δ αáßß¼«Γα¿¼ ó«º¼«ª¡«ßΓ¿ ß«ºñá¡¿∩ ß«íßΓóÑ¡¡δσ »á½¿Γα »«½∞º«óáΓÑ½∩. 6.2.6 Åá½¿Γαδ, ¡áßΓαá¿óáÑ¼δÑ »«½∞º«óáΓÑ½Ñ¼ ----------------------------------------------------------------- é ¡áßΓ«∩Θ¿⌐ ¼«¼Ñ¡Γ »αÑñ»«½«ª¿¼, τΓ« óδ ¿ºπτ¿½¿ ßΓá¡ñáαΓ¡πε »á½¿Γαπ VGA ¿ ñ«íáó¿½¿ ó ¡ÑÑ ¡Ñß¬«½∞¬« ß«íßΓóÑ¡¡δσ µóÑΓ«ó. æ½ÑñπεΘ¿⌐ Φáú íπñÑΓ ß«ßΓ«∩Γ∞ ó Γ«¼, τΓ«íδ ß«ºñáΓ∞ »á½¿Γαπ, µÑ½¿¬«¼ ß«ßΓ«∩Θπε ¿º ß»Ñµ¿á½∞¡« óδíαá¡¡δσ µóÑΓ«ó. Æá¬¿Ñ ¡áßΓαá¿óáÑ¼δÑ »«½∞º«óáΓÑ½Ñ¼ »á½¿Γαδ ß½πªáΓ «ß¡«ó«⌐ ñ«»«½¡¿ΓÑ½∞¡δσ ßαÑñßΓó αáí«Γδ ó ó¿ñÑ«-αÑª¿¼Ñ 19 (ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ 13). èá¬ πªÑ íδ½« ß¬áºá¡« óδΦÑ, σ«α«Φ¿⌐ ß»«ß«í ß«ºñá¡¿∩ »á½¿Γαδ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ óδíαáΓ∞ 16 íáº«óδσ µóÑΓ«ó ¿ ñ½∩ ¬áªñ«ú« ¿º ¡¿σ ÑΘÑ ß«ºñáΓ∞ 16 πα«ó¡Ñ⌐ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿. ìá»α¿¼Ñα, σ«½«ñ¡δ⌐ ¬αáß¡δ⌐, ¬αáß¡δ⌐, ΓÑ»½δ⌐ ¬αáß¡δ⌐, «αá¡ªÑó«-¬αáß¡δ⌐, «αá¡ªÑóδ⌐, º«½«Γ¿ßΓ«-ªÑ½Γδ⌐, ªÑ½Γδ⌐, ºÑ½Ñ¡«-ªÑ½Γδ⌐, ßóÑΓ½«-ºÑ½Ñ¡δ⌐, ºÑ½Ñ¡δ⌐, ºÑ½Ñ¡«-ú«½πí«⌐, ß¿¡¿⌐, ú«½πí«⌐, ß¿¡Ñ-Σ¿«½ÑΓ«óδ⌐, »πα»πα¡δ⌐ ¿ »πα»πα¡«-¬αáß¡δ⌐ φΓ« σ«α«Φ¿⌐ »α¿¼Ñα ¬«½∞µá ¿º 16 íáº«óδσ µóÑΓ«ó. ÅÑαÑσ«ñδ ¼Ñªñπ φΓ¿¼¿ íáº«óδ¼¿ µóÑΓá¼¿ óδ»«½¡∩εΓß∩ »πΓÑ¼ ¿º¼Ñ¡Ñ¡¿⌐ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ ¬«¼»«¡Ñ¡Γ ¿ ßÑαδσ Γ«¡«ó, ß«ºñáóá∩ ¡áΓπαá½∞¡πε »α«úαÑßß¿ε. ìá»α¿¼Ñα, ∩α¬«-¬αáß¡δ⌐ µóÑΓ ß µóÑΓ«óδ¼¿ ¬«¼»«¡Ñ¡Γá¼¿ â«½πí«⌐=0, çÑ½Ñ¡δ⌐=0 ¿ èαáß¡δ⌐=63 ¼«ªÑΓ íδΓ∞ Γαá¡ßΣ«α¼¿α«óá¡ ó ¬αáß¡«óáΓδ⌐ «ΓΓÑ¡«¬ µóÑΓá ¬«ª¿ ß ¬«¼»«¡Ñ¡Γá¼¿ â«½πí«⌐=37, çÑ½Ñ¡δ⌐=42, èαáß¡δ⌐=62. ¥Γ«Γ µóÑΓ ¼«ªÑΓ íδΓ∞ ß«ºñá¡ ß 16 αáº½¿τ¡δ¼¿ πα«ó¡∩¼¿ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿. Å«óΓ«α¿ó φΓ«Γ »α«µÑßß ß 15 ñαπú¿¼¿ íáº«óδ¼¿ µóÑΓá¼¿, óδ »«½πτ¿ΓÑ »á½¿Γαπ ¿º 256 ¡áΓπαá½∞¡δσ Γ«¡«ó. Åα«µÑñπαá JANSPALETTE ¿ß»«½∞ºπÑΓ ¬«¼á¡ñπ BLEND ñ½∩ ¬áªñ«ú« ¿º 16 íáº«óδσ µóÑΓ«ó ñ½∩ ß«ºñá¡¿∩ αáº¡δσ πα«ó¡Ñ⌐ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿, ó ñ¿á»áº«¡Ñ «Γ ßóÑΓ½δσ «ΓΓÑ¡¬«ó, τÑαÑº íáº«óδ⌐ µóÑΓ, ¿ ¬ ΓÑ¼¡δ¼ «ΓΓÑ¡¬á¼. ä½∩ ß«ºñá¡¿∩ óßÑσ 256 µóÑΓ«ó »á½¿Γαδ ñ«ßΓáΓ«τ¡« 32 ¬«¼á¡ñ BLEND. ûóÑΓ ¡«¼Ñα 0 «»αÑñÑ½∩ÑΓß∩ «ΓñÑ½∞¡«. 6.2.7 ûóÑΓá »á½¿Γαδ ó ΓÑ¬ßΓ«óδσ αÑª¿¼áσ ----------------------------------------------------------------- é ß½πτáÑ »½áΓδ VGA ñ«ßΓπ» ¬ «íΘÑ⌐ »á½¿Γαδ ¿º 262144 µóÑΓ«ó ¡Ñ «úαá¡¿τÑ¡ αÑª¿¼«¼ 19. ûóÑΓá, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ ß«ºñá¡δ ¬«¼á¡ñá¼¿ PALETTE ¿ BLEND, Γá¬ªÑ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ó ñαπú¿σ ó¿ñÑ-αÑª¿¼áσ, σ«Γ∩ ΓÑ »«ºó«½∩εΓ «ñ¡«óαÑ¼Ñ¡¡δ⌐ óδó«ñ ¡á φ¬αá¡ óßÑú« 2, 4, 8 ¿½¿ 16 µóÑΓ«ó. Æá¬¿¼ «íαáº«¼, »½áΓá VGA ¡Ñ Γ«½∞¬« ß«ó¼ÑßΓ¿¼á ß »αÑª¡¿¼¿ αÑª¿¼á¼¿ IBM, ¡« ¿ Σá¬Γ¿τÑß¬¿ αáßΦ¿α∩ÑΓ ¿σ ó«º¼«ª¡«ßΓ¿, αáßΦ¿α∩∩ «íΘ¿⌐ óδí«α µóÑΓ«ó. üÑº VGA óδ íδ½¿ óδ¡πªñÑ¡δ αáí«ΓáΓ∞ ß «ñ¡¿¼ ¿ ΓÑ¼ ªÑ ¡áí«α«¼ µóÑΓ«ó ó« óßÑσ ΓÑ¬ßΓ«óδσ ¿ úαáΣ¿τÑß¬¿σ αÑª¿¼áσ. Äñ¡á¬« ßπΘÑßΓóπÑΓ «ñ¡« ¡Ñí«½∞Φ«Ñ «úαá¡¿τÑ¡¿Ñ «Γ¡«ß¿ΓÑ½∞¡« ¿ß»«½∞º«óá¡¿∩ ¡«óδσ µóÑΓ«ó VGA ó ßΓáαδσ αÑª¿¼áσ. éδ ñ«½ª¡δ íπñÑΓÑ »ÑαÑ¡áº¡áτ¿Γ∞ ¡«¼Ñαá µóÑΓ«ó óáΦÑ⌐ »á½¿Γαδ. ìá»α¿¼Ñα, óá¼ ¼«ªÑΓ »«¡áñ«í¿Γ∞ß∩ óδíαáΓ∞ 16 µóÑΓ«ó ¼Ñªñπ 0 ¿ 60 óáΦÑ⌐ »á½¿ΓαÑ "EGA". é φΓ«¼ ß½πτáÑ ¡«¼Ñαá µóÑΓ«ó ¡Ñ ß««ΓóÑΓßΓóπεΓ ¿σ »«º¿µ¿∩¼ ó »á½¿ΓαÑ. ¥Γ« ¡Ñ »«ºó«½∩ÑΓ αáí«ΓáΓ∞ ß ¬«¼á¡ñá¼¿ PALETTE ¿ BLEND. Åα«µÑñπαá ASSIGNCOLOR ß½πª¿Γ ñ½∩ Γ«ú«, τΓ«íδ πßΓá¡«ó¿Γ∞ ¡«¼Ñα µóÑΓá αáó¡δ¼ Ñú« »«º¿µ¿¿ ó »á½¿ΓαÑ. Å«ß½Ñ óδ»«½¡Ñ¡¿∩ φΓ«⌐ »α«µÑñπαδ µóÑΓ 1 ¼«ª¡« óδºδóáΓ∞ »« Ñú« ¡«¼Ñαπ 1 ó »á½¿ΓαÑ ¿ ¼á¡¿»π½¿α«óáΓ∞ ß ¡¿¼. èá¬ ¿ ó ß½πτáÑ PALETTE ¿ FRAMECOLOR, φΓá »α«µÑñπαá Γá¬ªÑ ¿ß»«½∞ºπÑΓ ñ«ßΓπ» ¬ αÑú¿ßΓαá¼. êß»«½∞ºπεΓß∩ αÑú¿ßΓαδ »á½¿Γαδ ¿ »αÑαδóá¡¿Ñ $10. procedure ASSIGNCOLOR(ColorNumber, Color: integer); (* ì«¼Ñαá ó »á½¿ΓαÑ πßΓá¡áó½¿óáεΓß∩ *) var (* αáó¡δ¼¿ »«º¿µ¿¿ ó »á½¿ΓαÑ. *) Regs : registers; (* ¥Γ« «ß«íÑ¡¡« »«½Ñº¡« ñ½∩ ¡«óδσ *) begin (* »á½¿Γα ó ΓÑ¬ßΓ«óδσ αÑª¿¼áσ. *) with regs do begin (* Å«ñú«Γ«ó¬á αÑú¿ßΓα«ó ¬ »αÑαδóá¡¿ε*) AL := $00; (* ÅÑαÑñáτá ¡«¼Ñα«ó ó »«α∩ñ¬Ñ *) AH := $10; (* ó«ºαáßΓá¡¿∩, ß¬«½∞¬« ó«º¼«ª¡«. *) BL := ColorNumber; BH := Color; end; Intr($10,regs); (* óδº«ó »αÑαδóá¡¿∩ ΦÑßΓ¡-α¿τ¡«Ñ $10 *) end; æ½ÑñπεΘá∩ »α«úαá¼¼á, VTEXTCOLOR, ñÑ¼«¡ßΓα¿απÑΓ αáí«Γπ ¡«óδσ »α«µÑñπα BLEND, PALETTE ¿ ASSIGNCOLOR. »«ß¬«½∞¬π ½¿ßΓ¿¡ú¿ φΓ¿σ »α«µÑñπα πªÑ »α¿ó«ñ¿½¿ß∞, Γ« ¿σ ΓÑ¬ßΓ ºñÑß∞ ¡Ñ »α¿ó«ñ¿Γß∩: Program VTEXTCOLOR; { ¡áτá½« ºáú«½«ó¬á »α«úαá¼¼δ } uses dos,crt; { óδº«ó ñαπú¿σ ¼«ñπ½Ñ⌐ } var x:integer; { «»αÑñÑ½Ñ¡¿∩/»α«µÑñπαδ } procedure AssignColor(....); { ΓÑ¬ßΓ ß¼. óδΦÑ } procedure Palette(.7..); { ΓÑ¬ßΓ ß¼. óδΦÑ } procedure Blend(..7.); { ΓÑ¬ßΓ ß¼. óδΦÑ } procedure Mode(....); { ΓÑ¬ßΓ ß¼. óδΦÑ } begin { ¡áτá½« ú½áó¡«⌐ »α«úαá¼¼δ } Mode($3); { ó¬½ετÑ¡¿Ñ ΓÑ¬ßΓ«ó«ú« αÑª¿¼á 3 } for x:=0 to 15 do AssignColor(x,x); { »α¿ßó«Ñ¡¿∩ ¡«¼Ñα«ó } Blend(0,10,35,50, 15,30,60,30); { ¡«óá∩ »á½¿Γαá VGA } for x:=0 to 15 do begin { »α«úαá¼¼á ó µ¿¬½Ñ óδó«ñ¿Γ } Textcolor(x); { ¡«óδ⌐ µóÑΓ ΓÑ¬ßΓ«ó ó } Writeln('ì«¼Ñα µóÑΓá = ',x); { ΓÑ¬ßΓ«ó«¼ αÑª¿¼Ñ } end; { ¬«¡Ñµ µ¿¬½á »α«úαá¼¼δ } end. { ¬«¡Ñµ ñÑ¼«¡ßΓαáµ¿¿ } ¥Γá »α«úαá¼¼á »«¬áªÑΓ óá¼ ó«º¼«ª¡«ßΓ¿ VGA ó ΓÑ¬ßΓ«ó«¼ αÑª¿¼Ñ 3. ò«Γ∩ ¿º¼Ñ¡Ñ¡¿∩ ¿ ¡ÑóÑ½¿¬¿, ¡« íÑº VGA ¿¼ÑΓ∞ Γá¬«⌐ ¡áí«α í«½ÑÑ ¼∩ú¬¿σ Γ«¡«ó íδ½« íδ ¡Ñó«º¼«ª¡«. 6.3 âαáΣ¿τÑß¬¿Ñ ¬«¼á¡ñδ ÉÑª¿¼á 19 ----------------------------------------------------------------- ä½∩ ¿ß»«½∞º«óá¡¿∩ ¡áßΓα«Ñ¡¡«⌐ »«½∞º«óáΓÑ½Ñ¼ »á½¿Γαδ ó Turbo Pascal ¡á¼ »«ΓαÑíπÑΓß∩ ¡Ñß¬«½∞¬« ¡«óδσ ¬«¼á¡ñ. æ½ÑñπεΘ¿Ñ úαáΣ¿τÑß¬¿Ñ »α«µÑñπαδ ¿ß»«½∞ºπεΓ ß»Ñµ¿á½∞¡δÑ ßó«⌐ßΓóá αÑª¿¼á 19 (ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ 13). Å« ßαáó¡Ñ¡¿ε ß αá¡ÑÑ αáßß¼«ΓαÑ¡¡δ¼¿ »α«µÑñπαá¼¿ ß½ÑñπεΘá∩ úαπ»»á ¬«¼á¡ñ ¡Ñ ¼«ªÑΓ íδΓ∞ φΣΣÑ¬Γ¿ó¡« ¿ß»«½∞º«óá¡á ó¡Ñ αÑª¿¼á 19 ß Ñú« 256-µóÑΓ¡«⌐ »á½¿Γα«⌐. é ñαπú¿σ ó¿ñÑ«-αÑª¿¼áσ ßπΘÑßΓóπεΓ ßΓá¡ñáαΓ¡δÑ ¬«¼á¡ñδ Åáß¬á½∩, óδ»«½¡∩εΘ¿Ñ »α¿¼Ñα¡« ΓÑ ªÑ Σπ¡¬µ¿¿. 6.3.1 ùΓÑ¡¿Ñ ¿ óδó«ñ ¡á φ¬αá¡ »¿¬ßÑ½Ñ⌐ ----------------------------------------------------------------- Åα«µÑñπαá PLOT »α¿¡¿¼áÑΓ ¡á óσ«ñÑ µóÑΓ. àÑ óδσ«ñ«¼ ∩ó½∩ÑΓß∩ «Γ«íαáªÑ¡¿Ñ »¿¬ßÑ½∩ φΓ«ú« µóÑΓá ó ¬««αñ¿¡áΓáσ x,y. Åα«µÑñπαá PEEK ßτ¿ΓδóáÑΓ ¡«¼Ñα µóÑΓá »¿¬ßÑ½∩ ß ¬««αñ¿¡áΓá¼¿ x,y ¿ »ÑαÑñáÑΓ φΓ« º¡áτÑ¡¿Ñ ¬á¬ µÑ½«Ñ τ¿ß½«. Procedure PLOT(x,y: Integer; Color:integer); begin { óδó«ñ µóÑΓ¡«ú« »¿¬ßÑ½∩ ó ó¿ñÑ«-αÑª¿¼Ñ 19 } if (x<320) and (x>-1) and (y<200) and (y>-1) then mem[$A000+y*20:x]:=Color end; Procedure PEEK(x,y: integer;var OldColor: integer); begin { τΓÑ¡¿Ñ ¡«¼Ñαá µóÑΓá »¿¬ßÑ½∩ ó αÑª¿¼Ñ 19 } OldColor:=GetPixel(x1,y1); end; è«¼á¡ñá Åáß¬á½∩ mem[] ¿ß»«½∞ºπÑΓß∩ ñ½∩ »α∩¼δσ ¼á¡¿»π½∩µ¿⌐ ß »á¼∩Γ∞ε ¬«¼»∞εΓÑαá. àß½¿ αá¡∞ΦÑ óδ φΓ«⌐ ¬«¼á¡ñ«⌐ ¡Ñ »«½∞º«óá½¿ß∞, »α«τΓ¿ΓÑ ß½ÑñπεΘÑÑ »«∩ß¡Ñ¡¿Ñ: "Mem" φΓ« ß«¬αáΘÑ¡¿Ñ «Γ ß½«óá "Memory" (»á¼∩Γ∞), «Γ¡«ß∩ΘÑú«ß∩, ÑßΓÑßΓóÑ¡¡«, ¬ »á¼∩Γ¿ óáΦÑú« ¬«¼»∞εΓÑαá. è«¼á¡ñá "mem[..]:=º¡áτÑ¡¿Ñ" ºáßΓáó½∩ÑΓ ¬«¼»∞εΓÑα ºá»«¼¡¿Γ∞ ºáñá¡¡«Ñ º¡áτÑ¡¿Ñ. è«¼á¡ñá "º¡áτÑ¡¿Ñ:=mem[..]:" ºáßΓáó¿Γ ¬«¼»∞εΓÑα ¿ºó½Ñτ∞ ¿º »á¼∩Γ¿ ñá¡¡«Ñ º¡áτÑ¡¿Ñ. é »Ñαó«¼ ß½πτáÑ "mem" ¿ß»«½∞ºπÑΓß∩ ñ½∩ Γ«ú«, τΓ«íδ »α¿¡∩Γ∞ º¡áτÑ¡¿Ñ ñ½∩ »«¼ÑΘÑ¡¿∩ Ñú« ó »á¼∩Γ∞. é« óΓ«α«¼ "mem" ¿ß»«½∞ºπÑΓß∩ ñ½∩ óδí«α¬¿ ¿º »á¼∩Γ¿ ¿ »ÑαÑñáτ¿ º¡áτÑ¡¿∩ ó »ÑαÑ¼Ñ¡¡πε »α«úαá¼¼δ. Çαúπ¼Ñ¡Γ ó ¬óáñαáΓ¡δσ ß¬«í¬áσ »αÑñßΓáó½∩ÑΓ áñαÑß ¬«¼»∞εΓÑαá, ß ¬«Γ«αδ¼ óδ»«½¡∩εΓß∩ ¼á¡¿»π½∩µ¿¿. ìá»α¿¼Ñα, Ñß½¿ óδ σ«Γ¿ΓÑ áñαÑß«óáΓ∞ óÑασ¡¿⌐ ½Ñóδ⌐ πú«½ φ¬αá¡á ó αÑª¿¼Ñ 19, Γ« ß««ΓóÑΓßΓóπεΘ¿⌐ ΦÑßΓ¡áñµáΓ¿α¿τ¡δ⌐ áñαÑß íπñÑΓ αáóÑ¡ $A0000. è«¼á¡ñá óδ»«½¡¿Γ τΓÑ¡¿Ñ »« áñαÑßπ "mem[$A000:0]". äó«ÑΓ«τ¿Ñ, óσ«ñ∩ΘÑÑ ó áñαÑß, ΓαÑíπÑΓ ñ«»«½¡¿ΓÑ½∞¡«ú« »«∩ß¡Ñ¡¿∩. Ä¡« »αÑñ¡áº¡áτÑ¡« ñ½∩ Γ«ú«, τΓ«íδ π»α«ßΓ¿Γ∞ ß½«ªÑ¡¿Ñ ß íáº«óδ¼ áñαÑß«¼ φ¬αá¡¡«⌐ »á¼∩Γ¿. ç¡áτÑ¡¿Ñ ß»αáóá «Γ ñó«ÑΓ«τ¿∩ ß¬½áñδóáÑΓß∩ ß íáº«óδ¼ áñαÑß«¼. Åα¿ «ßΓ«α«ª¡«¼ ¼á¡¿»π½¿α«óá¡¿¿ óδ ¼«ªÑΓÑ ß¬½áñδóáΓ∞ ¬««αñ¿¡áΓδ x ¿ y ß íáº«óδ¼ áñαÑß«¼ φ¬αá¡á ñ½∩ Γ«ú«, τΓ«íδ áñαÑß«óáΓ∞ ¬«¡¬αÑΓ¡πε Γ«τ¬π. éó«ñ¿¼«Ñ ß»αáóá «Γ ñó«ÑΓ«τ¿∩ x-º¡áτÑ¡¿Ñ íπñÑΓ ß½«ªÑ¡« ß íáº«óδ¼ áñαÑß«¼. ìá»α¿¼Ñα, Γ«τ¬á ó óÑασ¡Ñ¼ »αáó«¼ πú½π íπñÑΓ ¿¼ÑΓ∞ áñαÑß $A0000+(ñÑß∩Γ¿τ¡«Ñ)319, »«ß¬«½∞¬π «¡á ¡áσ«ñ¿Γß∩ ó 319 »¿¬ßÑ½∩σ ó»αáó« «Γ Γ«τ¬¿ ½Ñó«ú« πú½á. çáΓÑ¼ Y-º¡áτÑ¡¿Ñ, óó«ñ¿¼«Ñ ß½Ñóá «Γ ñó«ÑΓ«τ¿∩, ¡Ñ»«ßαÑñßΓóÑ¡¡« »α¿íáó½∩ÑΓß∩ ¬ íáº«ó«¼π áñαÑßπ. èáªñ«Ñ y-º¡áτÑ¡¿Ñ π¼¡«ªáÑΓß∩ ¡á 320, Γ.¬. ¬áªñá∩ ßΓα«¬á φ¬αá¡á ß«ñÑαª¿Γ 320 Γ«τÑ¬. ä½∩ ß½«ªÑ¡¿∩ y-º¡áτÑ¡¿⌐ ß« óΓ«α«⌐ ΦÑßΓ¡áñµáΓ¿α¿τ¡«⌐ µ¿Σα«⌐ íáº«ó«ú« áñαÑßá ¼δ, ß½Ññ«óáΓÑ½∞¡«, π¼¡«ªáÑ¼ Ñú« á 320 ¿ ñÑ½¿¼ ¡á 16 (óΓ«αá∩ µ¿Σαá φΓ« ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ τ¿ß½«), τΓ« ñáÑΓ ¡á¼ ¬«ααÑ¬Γ¿απεΘ¿⌐ ¬«φΣΣ¿µ¿Ñ¡Γ 20. ùΓ«íδ »«ß¼«ΓαÑΓ∞, ¬á¬ φΓ« αáí«ΓáÑΓ, αáßß¼«Γα¿¼ ß½ÑñπεΘπε »α«µÑñπαπ: Procedure Plot(x,y: Integer; Color:integer); begin { óδó«ñ µóÑΓ¡«ú« »¿¬ßÑ½∩ ó ó¿ñÑ«-αÑª¿¼Ñ 19 } if (x<320) and (x>-1) and (y<200) and (y>-1) then mem[$A000+y*20:x]:=Color end; ÄßΓá½«ß∞ ß¬áºáΓ∞ ¡Ñß¬«½∞¬« ß½«ó «í «úαá¡¿τÑ¡¿∩σ ¬«¼á¡ñδ PLOT. ÆαÑΓ∞∩ ßΓα«¬á »α«µÑñπαδ PLOT «úαá¡¿τ¿óáÑΓ ñ¿á»áº«¡ ¬««αñ¿¡áΓ óδó«ñá »¿¬ßÑ½∩ ó αÑª¿¼Ñ 19. ¥Γ« «úαá¡¿τÑ¡¿Ñ ñ½∩ ¬«¼á¡ñδ PEEK ¡Ñ ñÑ⌐ßΓóπÑΓ. è«¼á¡ñπ PEEK ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ τΓÑ¡¿∩ ½εíδσ Γ«τÑ¬ α¿ßπ¡¬á, ñáªÑ Ñß½¿ «¡¿ ¡Ñ ó¿ñ¿¼δ ó ΓÑ¬πΘ¿⌐ ¼«¼Ñ¡Γ ¡á φ¬αá¡Ñ. 6.3.2 Åα«µÑñπαá BLOCK ----------------------------------------------------------------- ÆÑ»Ñα∞, ¬«úñá ¼δ ¡áπτ¿½¿ß∞ »«½∞º«óáΓ∞ß∩ »α«µÑñπαá¼¿ PLOT ¿ PEEK ñ½∩ ¼á¡¿»π½¿α«óá¡¿∩ «ΓñÑ½∞¡δ¼¿ »¿¬ßÑ½∩¼¿ ó αÑª¿¼Ñ 19, ¼«ª¡« ¡áτ¿¡áΓ∞ »α«í«óáΓ∞ ß«ºñáóáΓ∞ ¡á φ¬αá¡Ñ α¿ßπ¡¬¿. Åα«ñ«½ª¿¼ ß«ºñá¡¿Ñ ¡«óδσ »α«µÑñπα ¿ »α«úαá¼¼ ¡á Åáß¬á½Ñ, «ß¡«óá¡¡δσ ¡á ¿ß»«½∞º«óá¡¿¿ αá¡ÑÑ ¿ºπτÑ¡¡δσ ßαÑñßΓó. ìá»α¿¼Ñα, »α«µÑñπαá BLOCK ß½πª¿Γ ñ½∩ α¿ß«óá¡¿∩ ¡á φ¬αá¡Ñ µóÑΓ¡«ú« »α∩¼«πú«½∞¡¿¬á. ¥Γá »α«µÑñπαá ó αÑª¿¼Ñ 19 á¡á½«ú¿τ¡á ßΓá¡ñáαΓ¡«⌐ ¬«¼á¡ñÑ »áß¬á½∩ BAR, ¬«Γ«αá∩ ñ«ßΓπ»¡á ó ñαπú¿σ ó¿ñÑ«-αÑª¿¼áσ. é »α«Γ¿ó«»«½«ª¡«ßΓ∞ ¬«¼á¡ñÑ BAR, »α«µÑñπαá BLOCK »«ºó«½∩ÑΓ óδíαáΓ∞ µóÑΓ ¿º 256 µóÑΓ«ó, ñ«ßΓπ»¡δσ ó »á½¿ΓαÑ αÑª¿¼á 19. èá¬ ¿ PLOT, φΓá »α«µÑñπαá «ß¡«óá¡á ¡á ¿ß»«½∞º«óá¡¿¿ ¬«¼á¡ñδ Åáß¬á½∩ "mem[..]". ¥Γá »α«µÑñπαá »α«óÑα∩ÑΓ óóÑñÑ¡¡δÑ ¬««αñ¿¡áΓδ ¿ ¼Ñ¡∩ÑΓ ¿σ ¼ÑßΓá¼¿, Ñß½¿ ¬««αñ¿¡áΓδ »ÑαÑ»πΓá¡δ. äá½ÑÑ ¡áσ«ñ∩Γß∩ ñóá ó½«ªÑ¡¡δσ µ¿¬½á, ß«ºñáεΘ¿σ ¬««αñ¿¡áΓδ »α∩¼«πú«½∞¡¿¬á. çáΓÑ¼ ó φΓá ¬««αñ¿¡áΓδ »¿¬ßÑ½∞ ºá »¿¬ßÑ½Ñ¼ óδ»«½¡∩ÑΓß∩ óδó«ñ ß ¿ß»«½∞º«óá¡¿Ñ¼ óδíαá¡¡«ú« µóÑΓá VGA: Procedure BLOCK(x1,y1,x2,y2: integer; Color:integer); var xcmyc,Keep: integer; { α¿ßπÑΓ µóÑΓ¡«⌐ »α∩¼«πú«½∞¡¿¬ } begin { »α¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¼Ñ¡∩ÑΓ ¼ÑßΓá¼¿ ¬««αñ¿¡áΓδ } if x2<x1 then begin Keep:=x1; x1:=x2; x2:=Keep; end; if y2<y1 then begin Keep:=y1; y1:=y2; y2:=Keep; end; for xc:=x to x2 do begin { ó½«ªÑ¡¡δÑ µ¿¬½δ ñ½∩ } for yc:=y1 to y2 do begin { ß«ºñá¡¿∩ »α∩¼«πú«½∞¡¿¬á } if (xc<320) and (xc>-1) and (yc<200) and (yc>-1) then mem[$A000+yc*20:xc]:=Color; {α¿ß«óá¡¿Ñ µóÑΓ¡«⌐ Γ«τ¬¿ } end; { ¬«¡Ñµ µ¿¬½á »« y } end; { ¬«¡Ñµ µ¿¬½á »« x } end; { ¬«¡Ñµ »α«µÑñπαδ } ä½∩ »«∩ß¡Ñ¡¿∩: µ¿¬½ »« x ß«ºñáÑΓ ñ½¿¡π ú«α¿º«¡Γá½∞¡«⌐ ßΓα«¬¿, á µ¿¬½ »« y α¿ßπÑΓ φΓπ ßΓα«¬π ¡πª¡«Ñ τ¿ß½« αáº «Γ y1 ñ« y2, »«¬á »α∩¼«πú«½∞¡¿¬ ¡Ñ íπñÑΓ ºá»«½¡Ñ¡. 6.3.3 Åα«µÑñπαá CIRCLE ----------------------------------------------------------------- æ½ÑñπεΘá∩ »α«µÑñπαá (ß¼. ¡á ñ¿ß¬ÑΓÑ) ß«ºñáÑΓ µóÑΓ¡δÑ «¬απª¡«ßΓ¿ ¿ φ½½¿»ßδ ó αÑª¿¼Ñ 19, «ß¡«óδóá∩ß∞ ¡á αá¡ÑÑ ¿ºπτÑ¡¡δσ »α«µÑñπαáσ "Mode" (τΓ«íδ »ÑαÑ⌐Γ¿ ó αÑª¿¼ 19) ¿ "Plot". ¥Γ« Γá¬ªÑ «º¡áτáÑΓ, τΓ« »α«µÑñπαδ ñ«½ª¡δ íδΓ∞ ßó∩ºá¡δ ¼Ñªñπ ß«í«⌐ ó »α«úαá¼¼Ñ. Åα«µÑñπαá CIRCLE »α¿¡¿¼áÑΓ x- ¿ y- ¬««αñ¿¡áΓδ µÑ¡Γαá½∞¡«⌐ Γ«τ¬¿, º¡áτÑ¡¿∩ αáñ¿πß«ó »« x ¿ y, á Γá¬ªÑ ¡«¼Ñα µóÑΓá. ÄΓα¿µáΓÑ½∞¡δÑ º¡áτÑ¡¿∩ αáñ¿á½∞¡δσ º¡áτÑ¡¿⌐ πßΓá¡áó½¿óáεΓß∩ »α«µÑñπα«⌐ ó 0. ÅÑαÑñ ¡áτá½«¼ µ¿¬½á α¿ß«óá¡¿∩ º¡áτÑ¡¿∩ ¬««αñ¿¡áΓ πßΓá¡áó½¿óáεΓß∩ «Γ¡«ß¿ΓÑ½∞¡« »«½εß«ó «¬απª¡«ßΓ¿. ¥Γ« «º¡áτáÑΓ, τΓ« »α«úαá¼¼á α¿ßπÑΓ ½¿¡¿¿ «Γ »«½εßá «¬απª¡«ßΓ¿ ¬ ÑÑ φ¬óáΓ«απ. Åα«úαá¼¼á ¿ß»«½∞ºπÑΓ ßτÑΓτ¿¬¿ ñ½∩ «Γ¡«ß¿ΓÑ½∞¡δσ ¬««αñ¿¡áΓ, ñóπσ αáñ¿á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ¿ ßτÑΓτ¿¬ ñ½∩ Σπ¡¬µ¿¿ Circle. â½áó¡δ⌐ µ¿¬½ »α«úαá¼¼δ »«óΓ«α∩ÑΓß∩ ñ« ΓÑσ »«α, »«¬á ¡Ñ íπñÑΓ ñ«ßΓ¿ú¡πΓ φ¬óáΓ«α, á «Γ¡«ß¿ΓÑ½∞¡δÑ y-¬««αñ¿¡áΓδ ¡Ñ ßΓá¡πΓ αáó¡δ¼¿ 0. Åα«µÑñπαá αáí«ΓáÑΓ Γ«½∞¬« ß »«½«ª¿ΓÑ½∞¡δ¼¿ áαúπ¼Ñ¡Γá¼¿. ¥Γ« «º¡áτáÑΓ, τΓ« óδτ¿ß½∩ÑΓß∩ Γ«½∞¬« óÑασ¡¿⌐ »αáóδ⌐ ¬óáñαá¡Γ, »«ß½Ñ τÑú« Σ«α¼á ºáóÑαΦáÑΓß∩ »«ßαÑñßΓó«¼ ¼á¡¿»π½∩µ¿⌐ ß φΓ¿¼¿ «Γ¡«ß¿ΓÑ½∞¡δ¼¿ ¬««αñ¿¡áΓá¼¿ ¬«¼á¡ñ«⌐ PLOT. Å«ß½Ñ Γ«ú«, ¬á¬ íπñπΓ ¡áα¿ß«óá¡δ »ÑαóδÑ τÑΓδαÑ Γ«τ¬¿ ó τÑΓδαÑσ ¬óáñαá¡Γáσ ¬απúá, óδτ¿ß½∩εΓß∩ «Γ¡«ß¿ΓÑ½∞¡δÑ ¬««αñ¿¡áΓδ ß½ÑñπεΘÑ⌐ Γ«τ¬¿. éδτ¿ß½Ñ¡¿∩ «ß¡«óá¡δ ¡á º¡áτÑ¡¿∩σ, úÑ¡Ñα¿απÑ¼δσ Σπ¡¬µ¿Ñ⌐ Circle. Å«¬á φΓ«Γ ßτÑΓτ¿¬ í«½∞ΦÑ ¿½¿ αáóÑ¡ 0, »α«¿ßσ«ñ¿Γ »α¿αáΘÑ¡¿Ñ «Γ¡«ß¿ΓÑ½∞¡«⌐ x-¬««αñ¿¡áΓδ ¿ ¬«ααÑ¬µ¿∩ ÑÑ ßτÑΓτ¿¬á. àß½¿ ßτÑΓτ¿¬ Circle ¼Ñ¡∞ΦÑ 0, »α«¿ßσ«ñ¿Γ π¼Ñ¡∞ΦÑ¡¿Ñ «Γ¡«ß¿ΓÑ½∞¡«ú« y-º¡áτÑ¡¿∩ ¿ ¬«ααÑ¬µ¿∩ ß««ΓóÑΓßΓóπεΘÑú« ßτÑΓτ¿¬á. äá¡¡δ⌐ ß½«ª¡δ⌐ ß»«ß«í óδτ¿ß½Ñ¡¿∩ »«ºó«½∩ÑΓ óßÑúñá »«½πτáΓ∞ «¬απª¡«ßΓ¿ íÑº ºáº«α«ó, Γá¬ ¬á¬ ¬««αñ¿¡áΓδ x- ¿ y- «íÑ óδτ¿ß½∩εΓß∩ ¡á «ß¡«óÑ º¡áτÑ¡¿⌐ Σπ¡¬µ¿¿ Circle. Åα«µÑñπαá íπñÑΓ αáí«ΓáΓ∞ Γ«½∞¬« ó »α«úαá¼¼Ñ, ¬«Γ«αá∩ ½¿í« óδºδóáÑΓ ¼«ñπ½∞ Turbo Pascal VGA19 (ß¼. ¡¿ªÑ) ¿½¿ ß«ñÑαª¿Γ »α«µÑñπαδ PLOT ¿ MODE. é¿ñÑ«-αÑª¿¼ »ÑαÑñ óδº«ó«¼ »α«µÑñπαδ CIRCLE ñ«½ªÑ¡ íδΓ∞ »ÑαÑ¬½ετÑ¡ ¡á αÑª¿¼ 19 óδº«ó«¼ ¬«¼á¡ñδ "MODE(19)". É¿ß.3: Åα«µÑñπαá Circle Åα«µÑñπαá DISK ----------------------------------------------------------------- æ«ºñá¡¿Ñ ¿º«íαáªÑ¡¿∩ ñ¿ß¬á á¡á½«ú¿τ¡« ß«ºñá¡¿ε ¿º«íαáªÑ¡¿∩ «¬απª¡«ßΓ¿. Éáº¼ÑΘÑ¡¿Ñ Γ«τÑ¬ ó τÑΓδαÑσ ¬óáñαá¡Γáσ óδ»«½¡∩ÑΓß∩ íÑº ¬á¬¿σ-½¿í« ß½«ª¡δσ ¼áΓÑ¼áΓ¿τÑß¬¿σ αáßτÑΓ«ó »½«Θáñ¿ ¬απúá. Æ«τ¬¿ ½Ñó«ú« ¿ »αáó«ú« ¬óáñαá¡Γá ßó∩ºδóáεΓß∩ ¼Ñªñπ ß«í«⌐ ó µ¿¬½Ñ »α«úαá¼¼δ. üδ½« íδ ñ«ßΓáΓ«τ¡« »α«ßΓ« α¿ß«óáΓ∞ ú«α¿º«¡Γá½∞¡δÑ ½¿¡¿¿ «ΓñÑ½∞¡«⌐ »α«µÑñπα«⌐, «ñ¡á¬« φΓ« πñ«í¡ÑÑ ñÑ½áΓ∞ »«ñ»α«úαá¼¼«⌐. éδ»«½¡Ñ¡¿Ñ πß¬«α∩ÑΓß∩, Ñß½¿ óßΓα«¿Γ∞ Γá¬πε »«ñ»α«úαá¼¼π ó »α«µÑñπαπ, á ¡Ñ óδºδóáΓ∞ «ΓñÑ½∞¡πε »α«µÑñπαπ. û¿¬½ »α«úαá¼¼δ α¿ßπÑΓ ½¿¡¿¿ «Γ »«½εß«ó ¬ φ¬óáΓ«απ. ä¿ß¬ ß«ºñáÑΓß∩ ¡á φ¬αá¡Ñ ¡á íáºÑ ºáñáóáÑ¼δσ ¬««αñ¿¡áΓ µÑ¡Γαá, αáñ¿á½∞¡δσ ß«ßΓáó½∩εΘ¿σ »« x ¿ »« y ¿ µóÑΓá. èá¬ ¿ »α«τ¿Ñ »α«µÑñπαδ ñ½∩ α¿ß«óá¡¿∩ úÑ«¼ÑΓα¿τÑß¬¿σ Σ«α¼, ñá¡¡á∩ »α«µÑñπαá αáí«ΓáÑΓ Γ«½∞¬« ó αÑª¿¼Ñ 19. ûóÑΓ ñ¿ß¬á ¼«ª¡« óδíαáΓ∞ αáó¡δ¼ «ñ¡«¼π ¿º 256 µóÑΓ«ó »á½¿Γαδ αÑª¿¼á 19, »α¿τÑ¼ φΓπ »á½¿Γαπ óδ ¼«ªÑΓÑ «»αÑñÑ½¿Γ∞ ßá¼¿. Å«¼¡¿ΓÑ, τΓ« ΓαÑíπÑΓß∩ »α«µÑñπαá PLOT, ¬«Γ«αá∩ ñ«½ª¡á óσ«ñ¿Γ∞ ¬á¬ τáßΓ∞ »«½¡«⌐ »α«úαá¼¼δ. (æ¼. »α«úαá¼¼π ¡á ñ¿ß¬ÑΓÑ). 6.3.5 É¿ß«óá¡¿Ñ ½¿¡¿⌐ ó ó¿ñÑ«-αÑª¿¼Ñ 19 (»α«µÑñπαá LINE) ----------------------------------------------------------------- èá¬ ¡¿ ßΓαá¡¡«, »α«µÑñπαá, »αÑñ¡áº¡áτÑ¡¡á∩ ñ½∩ α¿ß«óá¡¿∩ ½¿¡¿⌐, ¡¿τπΓ∞ ¡Ñ »α«ΘÑ »α«µÑñπα ñ½∩ α¿ß«óá¡¿∩ «¬απª¡«ßΓÑ⌐ ¿ ñ¿ß¬«ó. öá¬Γ¿τÑß¬¿ «¡á á¡á½«ú¿τ¡á ñóπ¼ »«ß½Ññ¡¿¼. ¥Γ« »α«¿ßσ«ñ¿Γ óß½ÑñßΓó¿Ñ Γ«ú«, τΓ« ß«ºñáóáÑ¼δÑ ß ÑÑ »«¼«Θ∞ε ½¿¡¿¿ ¡Ñ «úαá¡¿τ¿óáεΓß∩ ú«α¿º«¡Γá½∞¡δ¼¿ ¿ óÑαΓ¿¬á½∞¡δ¼¿ ½¿¡¿∩¼¿ ¿ ¼«úπΓ »α«σ«ñ¿Γ∞ τÑαÑº óßÑ τÑΓδαÑ ¬óáñαá¡Γá φ¬αá¡á. ¥Γ«Γ ß½πτá⌐ πªÑ αáßß¼áΓα¿óá½ß∩ ó »α«µÑñπαÑ CIRCLE. Å«ß¬«½∞¬π ½¿¡¿¿ ¼«úπΓ ¿¼ÑΓ∞ αáº¡δ⌐ ¡á¬½«¡, ¼δ ¡Ñ ¼«ªÑ¼ »α«ßΓ« óδ»«½¡∩Γ∞ »«½«ª¿ΓÑ½∞¡δÑ ¿½¿ «Γα¿µáΓÑ½∞¡δÑ »α¿αáΘÑ¡¿∩ »« x ¿ »« y ñ½∩ α¿ß«óá¡¿∩ ½¿¡¿⌐. îδ «»∩Γ∞ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ ßτÑΓτ¿¬, ¡« ¡á φΓ«Γ αáº Ñú« º¡áτÑ¡¿Ñ íπñÑΓ ºáó¿ßÑΓ∞ «Γ ¡á¬½«¡á ½¿¡¿¿, á ¡Ñ «Γ Σπ¡¬µ¿¿ circle. ¥Γ« »«ºó«½¿Γ ¼Ñ¡∩Γ∞ x- ¿ y-¬««αñ¿¡áΓδ ó ß««ΓóÑΓßΓó¿¿ ß ¡á¬½«¡«¼ ½¿¡¿¿. è«¼á¡ñá "LINE(...)" »α¿¡¿¼áÑΓ ñóÑ ¬«¡Ñτ¡δÑ Γ«τ¬¿ ½¿¡¿¿ ¿ µóÑΓ. éδτ¿ß½∩ÑΓß∩ αáº¡«ßΓ∞ ¼Ñªñπ x- ¿ y-¬««αñ¿¡áΓá¼¿. Å«ß½Ñ »α«óÑα¬¿ ¡á íÑß¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ ¡á¬½«¡á ó ß½πτáÑ óÑαΓ¿¬á½∞¡«⌐ ½¿¡¿¿ φΓ¿ º¡áτÑ¡¿∩ ¿ß»«½∞ºπεΓß∩ ¬á¬ íáº«óδÑ ñ½∩ óδτ¿ß½Ñ¡¿∩ ¡á¬½«¡á ¿ ¡á»αáó½Ñ¡¿∩ ½¿¡¿¿. ìáτá½∞¡á∩ Γ«τ¬á ½¿¡¿¿ πßΓá¡áó½¿óáÑΓß∩ »áα«⌐ ¬««αñ¿¡áΓ. ¥Γ¿ ¬««αñ¿¡áΓδ ßΓá¡«ó∩Γß∩ ¡áτá½∞¡«⌐ Γ«τ¬«⌐ «ΓßτÑΓá «Γ¡«ß¿ΓÑ½∞¡δσ ¬««αñ¿¡áΓ ñ½∩ «ßΓá½∞¡«⌐ τáßΓ¿ ½¿¡¿¿. è««αñ¿¡áΓδ «ßΓá½∞¡«⌐ τáßΓ¿ ½¿¡¿¿ óδτ¿ß½∩εΓß∩ ó ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿∩¼¿, úÑ¡Ñα¿απÑ¼δ¼¿ Σπ¡¬µ¿Ñ⌐ ¡á¬½«¡á (slope), ñ« ΓÑσ »«α, »«¬á ¡Ñ íπñÑΓ ñ«ßΓ¿ú¡πΓá ¬«¡Ñτ¡á∩ Γ«τ¬á. (æ¼. »α¿¼Ñα ¡á ñ¿ß¬ÑΓÑ). É¿ß.4: äÑ¼«¡ßΓαáµ¿∩ ½¿¡¿¿ (LineDemonstration) 6.3.6 æ«ºñá¡¿Ñ αá¼«¬ ----------------------------------------------------------------- ò«Γ∩ αá¼¬«⌐ «íδτ¡« ßτ¿ΓáÑΓß∩ ¡Ñºá»«½¡Ñ¡¡δ⌐ »α∩¼«πú«½∞¡¿¬, ß½ÑñπεΘá∩ »α«µÑñπαá »«ñσ«ñ¿Γ ¬ φΓ«¼π ó«»α«ßπ ß«óÑαΦÑ¡¡« ¿¡áτÑ. ¥Γá »α«µÑñπαá ñ½∩ ºá»«½¡Ñ¡¿∩ óßÑ⌐ «í½áßΓ¿ φ¬αá¡á ¡Ñ ¿ß»«½∞ºπÑΓ ¡¿¬á¬¿σ ó½«ªÑ¡¡δσ µ¿¬½«ó. ä½∩ ß«ºñá¡¿∩ αá¼¬¿ «¡á ¿ß»«½∞ºπÑΓ »α«ßΓ« ½¿¡¿¿. ùÑΓδαÑ ½¿¡¿¿ ß«Ññ¿¡∩εΓß∩ ó «íδτ¡δσ ¬««αñ¿¡áΓáσ πú½«óδσ Γ«τÑ¬ φ¬αá¡á. Åα«µÑñπαá FRAME Γ«ªÑ αáí«ΓáÑΓ Γ«½∞¬« ó αÑª¿¼Ñ 19. ûóÑΓ ¼«ª¡« óδíαáΓ∞ ¿º 256 µóÑΓ«ó »á½¿Γαδ. ä«½ª¡δ íδΓ∞ ñ«ßΓπ»¡δ »α«µÑñπαδ LINE, PLOT ¿ MODE. Procedure FRAME(x1,y1,x2,y2,Color : integer); begin line(x1,y1,x2,y1,Color); line(x2,y1,x2,y2,Color); line(x2,y2,x1,y2,Color); line(x1,y2,x1,y1,Color); end; É¿ß.5: äÑ¼«¡ßΓαáµ¿∩ αá¼¬¿ (FrameDemonstration) 6.4 æ»Ñµ¿á½¿º¿α«óá¡¡δÑ úαáΣ¿τÑß¬¿Ñ ¬«¼á¡ñδ ----------------------------------------------------------------- æ½ÑñπεΘ¿Ñ úαáΣ¿τÑß¬¿Ñ ¬«¼á¡ñδ «ß¡«óá¡δ ¡á αá¡ÑÑ αáßß¼«ΓαÑ¡¡δσ ¿ ∩ó½∩εΓß∩ ¿σ ¼«ñ¿Σ¿¬áµ¿∩¼¿. è«¡¬αÑΓ¡«, ¼δ ¼«ñ¿Σ¿µ¿απÑ¼ ß»«ß«í, ¬«Γ«αδ¼ ¬«¼á¡ñδ BLOCK, LINE ¿ DISK ¿ß»«½∞ºπεΓ µóÑΓ ñ½∩ ºá»«½¡Ñ¡¿∩ Σ«α¼ ¡á φ¬αá¡Ñ. ä« ß¿σ »«α Σ«α¼δ ºá¬αáΦ¿óá½¿ß∞ «ñ¡¿¼ µóÑΓ«¼ VGA. êß»«½∞º«óá¡¿Ñ Ññ¿¡ßΓóÑ¡¡«ú« µóÑΓá ß«ºñáÑΓ ó»ÑτáΓ½Ñ¡¿Ñ "¿ß¬πßßΓóÑ¡¡«ßΓ¿" ß«ºñáóáÑ¼«⌐ ¬«¼»∞εΓÑα«¼ ¬áαΓ¿¡¬¿. æαÑñßΓóá ß«ºñá¡¿∩ ¼¡«ú«µóÑΓ¡δσ ¿º«íαáªÑ¡¿⌐ »«ºó«½∩εΓ ¿ºíáó¿Γ∞ß∩ «Γ φΓ«ú« φΣΣÑ¬Γá. îδ ß«ºñáñ¿¼ Γα¿ ¡«óδÑ »α«µÑñπαδ, ¿ß»«½∞ºπεΘ¿Ñ óÑß∞ ñ¿á»áº«¡ µóÑΓ«ó, ñ«ßΓπ»¡δσ ó »á½¿ΓαÑ VGA, ñ½∩ ºá¬αáΦ¿óá¡¿∩ ß«ºñáóáÑ¼δσ Σ«α¼. î«ñ¿Σ¿µ¿α«óá¡¡á∩ »α«µÑñπαá α¿ß«óá¡¿∩ ½¿¡¿¿ íπñÑΓ ¡áºδóáΓ∞ß∩ FEATHER, »α«µÑñπαá α¿ß«óá¡¿∩ í½«¬á - COLUMN, á ñ¿ß¬á - BALL. 6.4.1 ÅαÑñóáα¿ΓÑ½∞¡δÑ ΓαÑí«óá¡¿∩ ----------------------------------------------------------------- éáª¡δ¼ ΓαÑí«óá¡¿Ñ¼ »ÑαÑñ ¡áτá½«¼ ºá»«½¡Ñ¡¿∩ Σ«α¼δ ¼¡«ú¿¼¿ µóÑΓá¼¿ ∩ó½∩ÑΓß∩ ß«ºñá¡¿Ñ »«ñσ«ñ∩ΘÑ⌐ »á½¿Γαδ. Åα¿ ¿ß»«½∞º«óá¡¿¿ ¡«¼Ñα«ó ó »á½¿ΓαÑ, ¬«Γ«αá∩ ¡Ñ íδ½á «αúá¡¿º«óá¡á ß««ΓóÑΓßΓóπεΘ¿¼ «íαáº«¼, óδ ¼«ªÑΓÑ »«½πτ¿Γ∞ ¡á φ¬αá¡Ñ ¼ÑΦá¡¿¡π µóÑΓ«ó. Å«½Ñº¡« óß»«¼¡¿Γ∞ ß«ñÑαªá¡¿Ñ αáºñÑ½«ó 6.2.5 ¿ 6.2.6 ("ìáßΓα«⌐¬á »á½¿Γαδ »«½∞º«óáΓÑ½Ñ¼"). é ß½ÑñπεΘ¿σ »α«µÑñπαáσ «ß«íÑ¡¡« πñ«í¡« ¿ß»«½∞º«óáΓ∞ »á½¿Γαπ, ó ¬«Γ«α«⌐ ¿¼Ñ½«ß∞ íδ 16 íáº«óδσ µóÑΓ«ó, ¬áªñδ⌐ ¿º ¬«Γ«αδσ ó ßó«ε «τÑαÑñ∞ ¿¼Ñ½ íδ 16 πα«ó¡Ñ⌐ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿. Åα«µÑñπαδ JANSPALETTE ß½πª¿Γ ñ½∩ ß«ºñá¡¿∩ Γá¬«ú« α«ñá ¡áßΓαá¿óáÑ¼«⌐ »«½∞º«óáΓÑ½Ñ¼ »á½¿Γαδ. àß½¿ óδ óδíÑαÑΓÑ óáΦ¿ µóÑΓá ºá»«½¡Ñ¡¿∩ ¬á¬ ñ¿á»áº«¡ ¡«¼Ñα«ó ó »á½¿ΓαÑ, ß««ΓóÑΓßΓóπεΘ¿⌐ 16 πα«ó¡∩¼ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ «ñ¡«ú« ¿º íáº«óδσ µóÑΓ«ó »á½¿Γαδ, óáΦá Σ«α¼á íπñÑΓ ºá»«½¡Ñ¡á ÑßΓÑßΓóÑ¡¡«⌐ »α«úαÑßß¿Ñ⌐ µóÑΓ«ó. Æ«úñá ¼Ñªñπ µóÑΓá¼¿ ¡Ñ íπñÑΓ »α«íÑ½«ó, ¿ ¡Ñß«ó¼ÑßΓ¿¼δÑ µóÑΓá ¡Ñ «¬áªπΓß∩ α∩ñ«¼ ñαπú ß ñαπú«¼. äαπú«⌐ ß»«ß«í ß«ßΓ«¿Γ ó ¿ß»«½∞º«óá¡¿¿ ¬«¼á¡ñδ BLEND ñ½∩ »ÑαÑ«»αÑñÑ½Ñ¡¿∩ óδíαá¡¡«ú« ñ¿á»áº«¡á ¡«¼Ñα«ó »á½¿Γαδ Γá¬¿¼ «íαáº«¼, τΓ«íδ ¼Ñªñπ ñóπ¼∩ ºáñá¡¡δ¼¿ ¡«¼Ñαá¼¿ íδ½á ß«ºñá¡á ÑßΓÑßΓóÑ¡¡á∩ »α«úαÑßß¿∩ «ΓΓÑ¡¬«ó. ¥Γ«Γ ñ¿á»áº«¡ ¡«¼Ñα«ó µóÑΓ«ó ó »á½¿ΓαÑ ¼«ªÑΓ íδΓ∞ ºáΓÑ¼ ºáñá¡ ó úαáΣ¿τÑß¬¿σ ¬«¼á¡ñáσ ñ½∩ ºá»«½¡Ñ¡¿∩ ¿¼¿ Σ«α¼. Å«¼¡¿ΓÑ, τΓ« Γá¬«ú« α«ñá ¼á¡¿»π½∩µ¿¿ »«ó½¿∩εΓ ¡á ¿º«íαáªÑ¡¿∩, πªÑ ¡áσ«ñ∩Θ¿Ñß∩ ¬ φΓ«¼π ¼«¼Ñ¡Γπ ¡á φ¬αá¡Ñ ¿ ¿ß»«½∞ºπεΘ¿Ñ ¡«¼Ñαá µóÑΓ«ó, ¬«Γ«αδÑ óδ »ÑαÑ«»αÑñÑ½¿½¿. Äíδτ¡« »α«ΘÑ, ¿ αÑºπ½∞ΓáΓδ »α¿ φΓ«¼ í«½ÑÑ »αÑñß¬áºπÑ¼δ, Ñß½¿ óδ ß«ºñáñ¿ΓÑ ß¿ßΓÑ¼áΓ¿τÑß¬πε »á½¿Γαπ ß αáó¡«¼Ñα¡« ¿º¼Ñ¡∩εΘ¿¼¿ß∩ µóÑΓá¼¿. 6.4.2 É¿ß«óá¡¿Ñ ¼¡«ú«µóÑΓ¡δσ ½¿¡¿⌐ »α«µÑñπα«⌐ FEATHER ----------------------------------------------------------------- Åα«µÑñπαá FEATHER (ß¼. ¡á ñ¿ß¬ÑΓáσ) ó« ¼¡«ú«¼ »«σ«ªá ¡á »α«µÑñπαπ LINE. ¥Γ« ¡Ñπñ¿ó¿ΓÑ½∞¡«, »«ß¬«½∞¬π «íÑ ß«ºñáεΓ ¡á φ¬αá¡Ñ «ñ¡π ¿ Γπ ªÑ Σ«α¼π. Å«φΓ«¼π ñ½∩ »«½¡«ú« »«¡¿¼á¡¿∩ »α«µÑñπαδ «íαáΓ¿ΓÑß∞ ¬ «»¿ßá¡¿ε »α«µÑñπαδ LINE ó αáºñÑ½Ñ 6.3.5. Äñ¡á¬«, ¡«óá∩ »α«µÑñπαá ßπΘÑßΓóÑ¡¡« ñ«»«½¡Ñ¡á. é ¡Ñ⌐ ñ½¿¡á ½¿¡¿¿ óδτ¿ß½∩ÑΓß∩ »« ΓÑ«αÑ¼Ñ Å¿Σáú«αá. ä« ß¿σ »«α ¼δ ¡Ñ αáßß¼áΓα¿óá½¿ ñ½¿¡π ½¿¡¿¿, ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú« ¼«¼Ñ¡Γá, ¬«úñá «»αÑñÑ½∩½áß∞ ÑÑ ó¿ñ¿¼á∩ τáßΓ∞ ¡á φ¬αá¡Ñ. ÆÑ»Ñα∞ ñ½¿¡á ½¿¡¿¿ »«¡áñ«í¿Γß∩ ¡á¼ ñ½∩ αáí«Γδ ß ºá»«½¡Ñ¡¿Ñ¼ ½¿¡¿¿ µóÑΓá¼¿. ¥Γ« ßó∩ºá¡« ß ΓÑ¼, τΓ« Φáí½«¡ ºá»«½¡Ñ¡¿∩ ½¿¡¿¿ µóÑΓá¼¿ ¡áßΓαá¿óáÑΓß∩ »« ñ½¿¡Ñ ½¿¡¿¿, ¿ «í«⌐Γ¿ ñá¡¡δ⌐ ß»«ß«í ¡¿¬á¬ ¡Ñ½∞º∩. ¥Γ« »«ºó«½¿Γ ¡á¼ α¿ß«óáΓ∞ ¬«α«Γ¬¿Ñ ¿ ñ½¿¡¡δÑ ½¿¡¿¿ ß «ñ¿¡á¬«óδ¼ µóÑΓ«óδ¼ ¡á»«½¡Ñ¡¿Ñ¼. è »α«µÑñπαÑ ñ«íáó½Ñ¡á ñ«»«½¡¿ΓÑ½∞¡á∩ »«ñ»α«úαá¼¼á ñ½∩ óδτ¿ß½Ñ¡¿∩ ñ½¿¡δ ½¿¡¿¿. ä½¿¡á ½¿¡¿¿ ¿ τ¿ß½« ¿ß»«½∞ºπÑ¼δσ ñ½∩ ÑÑ ºá»«½¡Ñ¡¿∩ µóÑΓ«ó ¿ß»«½∞ºπεΓß∩ ñ½∩ ß«ºñá¡¿∩ µóÑΓ«ó«ú« «Γ¡«ΦÑ¡¿∩. ûóÑΓ ó ¬áªñ«⌐ Γ«τ¬Ñ óδí¿αáÑΓß∩ ó ß««ΓóÑΓßΓó¿¿ ß µóÑΓ«óδ¼ «Γ¡«ΦÑ¡¿Ñ¼ »« ¼ÑαÑ ñ«íáó½Ñ¡¿∩ ¡á φ¬αá¡ ¬áªñ«⌐ Γ«τ¬¿ ½¿¡¿¿. Å«ß½Ññ¡¿⌐ µóÑΓ ñ¿á»áº«¡á íπñÑΓ ñ«ßΓ¿ú¡πΓ ó ¬«¡Ñτ¡«⌐ Γ«τ¬Ñ ½¿¡¿¿. éßÑ ½¿¡¿¿, ¡Ñºáó¿ß¿¼« «Γ ¿σ ñ½¿¡δ, íπñπΓ ß«ñÑαªáΓ∞ ú½áñ¬πε »α«úαÑßß¿ε óßÑσ µóÑΓ«ó ºáñá¡¡«ú« µóÑΓ«ó«ú« ñ¿á»áº«¡á. é φ¬ßΓαÑ¼á½∞¡«¼ ß½πτáÑ, ¬«úñá óß∩ ½¿¡¿∩ ß«ßΓ«¿Γ ¿º «ñ¡«⌐ Γ«τ¬¿, ÑÑ µóÑΓ íπñÑΓ αáóÑ¡ »«ß½Ññ¡Ñ¼π µóÑΓπ ºáñá¡¡«ú« ñ¿á»áº«¡á. 6.4.3 ô»α«ΘÑ¡¡á∩ »α«µÑñπαá ºá»«½¡Ñ¡¿∩ (»α«µÑñπαá HORIZONTAL) ----------------------------------------------------------------- Å«ß¬«½∞¬π »α«µÑñπαá FEATHER ñ«ßΓáΓ«τ¡« ß½«ª¡á, ÑÑ ¼¡«ú«¬αáΓ¡δ⌐ óδº«ó ¿º ñαπú«⌐ »α«úαá¼¼δ ¿½¿ »α«µÑñπαδ íπñÑΓ »α¿ó«ñ¿Γ∞ ¬ í«½∞Φ«¼π αáßσ«ñπ ¼áΦ¿¡¡«ú« óαÑ¼Ñ¡¿. Å«φΓ«¼π ªÑ½áΓÑ½∞¡« ¿¼ÑΓ∞ ñαπú«⌐ ß»«ß«í ºá»«½¡Ñ¡¿∩ Σ«α¼, ó¼ÑßΓ« µ¿¬½¿τÑß¬«ú« »«óΓ«αÑ¡¿∩ óδº«óá FEATHER. îδ íπñÑ¼ ¿ß»«½∞º«óáΓ∞ í«½ÑÑ »α«ßΓπε ¿ íδßΓαπε óÑαß¿ε FEATHER, »αÑñ¡áº¡áτÑ¡¡πε ñ½∩ ºá»«½¡Ñ¡¿∩ »α∩¼«πú«½∞¡¿¬«ó ¿ «¬απª¡«ßΓÑ⌐. Å«ß¬«½∞¬π ñ½∩ ºá»«½¡Ñ¡¿∩ Σ«α¼ ¡á¼ ¡Ñ ΓαÑíπÑΓß∩ α¿ß«óá¡¿Ñ ½¿¡¿⌐ ó« óßÑσ ¡á»αáó½Ñ¡¿∩σ, ñ«ßΓáΓ«τ¡« »α«µÑñπαδ, α¿ßπεΘÑ⌐ ¼¡«ú«µóÑΓ¡δÑ ú«α¿º«¡Γá½∞¡δÑ ½¿¡¿¿. ¥Γπ αáí«Γπ ñÑ½áÑΓ »α«µÑñπαá HORIZONTAL. (æ¼. ¡á ñ¿ß¬ÑΓÑ). 6.4.4 î¡«ú«µóÑΓ¡δÑ ñ¿ß¬¿ (»α«µÑñπαá BALL) ----------------------------------------------------------------- î¡«ú«µóÑΓ¡δÑ ½¿¡¿¿, ß«ºñáóáÑ¼δÑ »α¿ »«¼«Θ¿ HORIZONTAL, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¿ ñ½∩ ºá»«½¡Ñ¡¿∩ ñαπú¿σ Σ«α¼. é¡ÑßÑ¼ ¡πª¡δÑ ¿º¼Ñ¡Ñ¡¿∩ ó »α«µÑñπαπ DISK. ¥Γ« »«ºó«½¿Γ ¡á¼ α¿ß«óáΓ∞ «¬απª¡«ßΓ¿ ¿ φ½½¿»ßδ, ºá»«½¡Ñ¡¡δÑ ¡Ñß¬«½∞¬¿¼¿ µóÑΓá¼¿. ¥Γá »α«µÑñπαá αáßΦ¿αÑ¡á ¿ »α¿¡¿¼áÑΓ »áαá¼ÑΓα ß óΓ«αδ¼ ¡«¼Ñα«¼ µóÑΓá. ä¿ß¬ ºá»«½¡∩ÑΓß∩ ñá¡¡δ¼ ñ¿á»áº«¡«¼ µóÑΓ«ó ¿º ΓÑ¬πΘÑ⌐ »á½¿Γαδ »α¿ »«¼«Θ¿ »α«µÑñπαδ HORIZONTAL, «»¿ßá¡¡«⌐ ó »αÑñδñπΘÑ¼ αáºñÑ½Ñ. ò«ñ óδ»«½¡Ñ¡¿∩ φΓ«⌐ »α«µÑñπαδ á¡á½«ú¿τÑ¡ DISK. Å«óÑασ¡«ßΓ∞ Σ«α¼δ ºá»«½¡∩ÑΓß∩ «Γ »«½εß«ó ¬ φ¬óáΓ«απ. éδí«α µóÑΓ«ó, ñ«ßΓπ»¡δσ ó ºáñá¡¡«¼ ñ¿á»áº«¡Ñ óáΦÑ⌐ »á½¿Γαδ, ßπΘÑßΓóÑ¡¡« ó½¿∩ÑΓ ¡á Γ«, ¡áß¬«½∞¬« "ÑßΓÑßΓóÑ¡¡«" íπñÑΓ óδú½∩ñÑΓ∞ ºá¬«¡τÑ¡¡á∩ Σ«α¼á. àß½¿ óδ ºáñá½¿ ßú½áªÑ¡¡πε »α«úαÑßß¿ε µóÑΓ«ó (¿½¿ óáα¿áµ¿¿ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ «ñ¡«ú« µóÑΓá) íÑº ó¡Ñºá»¡δσ αÑº¬¿σ »ÑαÑσ«ñ«ó µóÑΓá ¿ ¡Ñß«ó¼ÑßΓ¿¼«ßΓ¿ ¼Ñªñπ µóÑΓá¼¿, ºá»«½¡Ñ¡¡á∩ Σ«α¼á íπñÑΓ ¿¼ÑΓ∞ ΓαÑσ-¼Ñα¡δ⌐ ó¿ñ ¿ óδú½∩ñÑΓ∞ ¬á¬ Φáα ¿½¿ ßΣÑα«¿ñ. Åα«µÑñπαá BALL ¿ß»«½∞ºπÑΓß∩ ó »α«úαá¼¼Ñ Ball Demonstration. (æ¼. ¡á ñ¿ß¬ÑΓÑ). É¿ß.6: Åα«úαá¼¼á BallDemonstration (Procedure BALL(...);) 6.4.5 î¡«ú«µóÑΓ¡δÑ í½«¬¿ ----------------------------------------------------------------- ÆÑ»Ñα∞ ¼δ ¼«ªÑ¼ »α¿¼Ñ¡¿Γ∞ ΓÑ ªÑ »α¿¡µ¿»δ ¬ »α«µÑñπαÑ BLOCK. ÅαÑªñÑ τÑ¼ ¼δ ß¼«ªÑ¼ α¿ß«óáΓ∞ ¼¡«ú«µóÑΓ¡δÑ í½«¬¿, ó ßΓαπ¬Γπαπ »α«úαá¼¼δ Γ«ªÑ ΓαÑíπÑΓß∩ ó¡ÑßΓ¿ ¿º¼Ñ¡Ñ¡¿∩. Åα«µÑñπαá COLUMN (ß¼. ¡á ñ¿ß¬ÑΓÑ) ¿¼ÑÑΓ «ñ¿¡ µ¿¬½ ó¼ÑßΓ« ñóπσ. éΓ«α«⌐ µ¿¬½ »α«µÑñπαδ BLOCK ºá¼Ñ¡∩ÑΓß∩ ¬«¼á¡ñ«⌐ HORIZONTAL. Åα«úαá¼¼á ñ«½ª¡á »α¿¡¿¼áΓ∞ »áαá¼ÑΓαδ ¡áτá½∞¡«ú« ¿ ¬«¡Ñτ¡«ú« µóÑΓ«ó ñ½∩ »«ß½ÑñπεΘÑ⌐ ¿σ »ÑαÑñáτ¿ ¬«¼á¡ñÑ HORIZONTAL. Å«½πτÑ¡¡á∩ ó αÑºπ½∞ΓáΓÑ »α«µÑñπαá ß¼«ªÑΓ ºá»«½¡∩Γ∞ «í½áßΓ∞ φ¬αá¡á ¼Ñªñπ π¬áºá¡¡δ¼¿ πú½«óδ¼¿ ¬««αñ¿¡áΓá¼¿ ¼¡«ú«µóÑΓ¡δ¼¿ ½¿¡¿∩¼¿. ê ß¡«óá, τΓ«íδ »«½πτ¿Γ∞ φΣΣÑ¬Γ ºá»«½¡Ñ¡¡«⌐ Σ«α¼δ, óáª¡« óδíαáΓ∞ ßú½áªÑ¡¡δÑ µóÑΓá. Åα¿ ¿ß»«½∞º«óá¡¿¿ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ óáα¿áµ¿⌐ «ñ¡«ú« ¿ Γ«ú« ªÑ íáº«ó«ú« µóÑΓá ºá»«½¡Ñ¡¡á∩ Σ«α¼á íπñÑΓ ¿¼ÑΓ∞ ó¿ñ ¬απú½«⌐ ¬«½«¡¡δ. É¿ß.7: Åα«úαá¼¼á ColumnDemonstration 6.5 Åα«µÑñπαδ ß« ß¼ÑΦá¡¡δ¼¿ µóÑΓá¼¿ ºá»«½¡Ñ¡¿∩ ----------------------------------------------------------------- é »αÑñΦÑßΓóπεΘ¿σ αáºñÑ½áσ íδ½¿ »αÑñßΓáó½Ñ¡δ »α«µÑñπαδ, αáí«ΓáεΘ¿Ñ ß µóÑΓá¼¿ ºá»«½¡Ñ¡¿∩. ûóÑΓá ºá»«½¡Ñ¡¿∩ óδí¿αáεΓß∩ ¿º ß¼Ñª¡δσ µóÑΓ«ó »á½¿Γαδ αÑª¿¼á 19. æ½ÑñπεΘ¿Ñ αáºñÑ½δ »«¬áºδóáεΓ, ¬á¬ αáßΦ¿α¿Γ∞ φΓ¿ úαáΣ¿τÑß¬¿Ñ »α«µÑñπαδ »α¿ »«¼«Θ¿ ñαπú¿σ ó¡πΓαÑ¡¡¿σ Σπ¡¬µ¿⌐ ñ½∩ ß¼ÑΦÑ¡¿∩ µóÑΓ«ó ºá»«½¡Ñ¡¿∩. 6.5.1 Åα«µÑñπαá Horizontal ß« ß¼ÑΦá¡¡δ¼¿ µóÑΓá¼¿ ºá»«½¡Ñ¡¿∩ ----------------------------------------------------------------- ¥ΣΣÑ¬Γ ΓαÑσ¼Ñα¡«ßΓ¿, ¬«Γ«αδ⌐ ñ«ßΓ¿úáÑΓß∩ ºá ßτÑΓ ºá»«½¡Ñ¡¿∩ Σ«α¼ ¡Ñß¬«½∞¬¿¼¿ µóÑΓá¼¿, «αúá¡¿τÑ¡, ¿ßτÑºá∩ »« ¼ÑαÑ πóÑ½¿τÑ¡¿∩ αáº¼Ñα«ó «íΩÑ¬Γá. êß»«½∞º«óá¡¿Ñ 16 πα«ó¡Ñ⌐ ¿¡ΓÑ¡ß¿ó¡«ßΓ¿ «ñ¡«ú« ¿º 16 íáº«óδσ µóÑΓ«ó ¡áßΓαá¿óáÑ¼«⌐ »«½∞º«óáΓÑ½Ñ¼ »á½¿Γαδ αÑª¿¼á 19 ßΓá¡«ó¿Γß∩ ó ß½πτáÑ í«½∞Φ¿σ «íΩÑ¬Γ«ó ßπΘÑßΓóÑ¡¡« ºá¼ÑΓ¡δ¼, τΓ« ß«ºñáÑΓ φΣΣÑ¬Γ "»«½«ßáΓ«ßΓ¿". ¥Γ«Γ φΣΣÑ¬Γ ¼«ª¡« ó º¡áτ¿ΓÑ½∞¡«⌐ ßΓÑ»Ñ¡¿ π¼Ñ¡∞Φ¿Γ∞ ºá ßτÑΓ ß¼ÑΦ¿óá¡¿∩ µóÑΓ«ó ºá»«½¡Ñ¡¿∩. ä½∩ φΓ«ú« ó »α«µÑñπαπ HORIZONTAL ñ«íáó½∩ÑΓß∩ ¡«óδ⌐ »áαá¼ÑΓα "Mix". ç¡áτÑ¡¿Ñ φΓ«ú« »áαá¼ÑΓαá «»αÑñÑ½∩ÑΓ ßΓÑ»Ñ¡∞ ß¼ÑΦÑ¡¿∩ µóÑΓ«ó. àß½¿ Mix αáóÑ¡ 0, ß¼ÑΦÑ¡¿Ñ µóÑΓ«ó ¡Ñ »α«¿ßσ«ñ¿Γ. ôßΓá¡«ó¬á Mix αáó¡δ¼ ¼á¬ß¿¼á½∞¡«¼π º¡áτÑ¡¿ε »α¿óÑñÑΓ ¬ »«½¡«¼π ß¼ÑΦÑ¡¿ε µóÑΓ«ó ºá»«½¡Ñ¡¿∩, ¡« »α¿ φΓ«¼ φΣΣÑ¬Γ ΓαÑσ¼Ñα¡«ßΓ¿ Γá¬ªÑ ΓÑα∩ÑΓß∩. ÄßΓ«α«ª¡«Ñ ¿ß»«½∞º«óá¡¿Ñ φΓ«ú« ¬«φΣΣ¿µ¿Ñ¡Γá (Mix=2) »«ññÑαª¿Γ φΣΣÑ¬Γ ß¼ÑΦÑ¡¿∩ íÑº »«ΓÑα¿ ΓαÑσ¼Ñα¡«ßΓ¿ ¿º«íαáªÑ¡¿∩. ì¿ªÑ ¡áσ«ñ¿Γß∩ ½¿ßΓ¿¡ú BALLDEMONSTRATION, á ½¿ßΓ¿¡ú »α«µÑñπαδ MIXHORIZONTAL ß¼. ¡á ñ¿ß¬ÑΓÑ. Program BallDemonstration; uses crt,dos,vga19; var xx,yy,a,b : integer; ch : char; begin Randomize; Mode($13); directvideo:=false; Janspalette; Block(0,0,320,80,194); FrameColor(100); ColorText(120); gotoxy(1,1); writeln(' ü«½∞Φ«⌐ Φáα ß »«½«ßáΓδ¼ Φáí½«¡«¼: '); Ball(160,120,150,100,16*5,16*5+16); Zerokey; ch:=readkey; Blend(1,55,60,63,99,0,20,30); Listpalette; gotoxy(1,1); writeln( 'Åα«µÑñπαá MIXBALL(...); : Å«½«ß«¬ ¡Ñ ó¿ñ¡«! '); writeln( ' ß »áαá¼ÑΓα«¼ MIX, ß σ«α«Φ¿¼ ¿½¿ úαπíδ¼ ßú½áª¿óá¡¿Ñ¼. '); MixBall(160,120,150,100,1,99,2); Zerokey; repeat xx:=Random(320); yy:=Random(200); z:=(random(15)+1)*16; b:=random(10)+10; a:=b+random(5); MixBall(xx,yy,a,b,1,99,Random(20)); until keypressed; end. É¿ß.8: Åα«µÑñπαá MIXBALL, »áαá¼ÑΓα Mix »«ºó«½∩ÑΓ πíαáΓ∞ »«½«ßδ ¡á ¿º«íαáªÑ¡¿¿. 6.5.2 ÉáßΦ¿αÑ¡¿∩ »α«µÑñπα BALL ¿ COLUMN ----------------------------------------------------------------- ì«óá∩ úαáΣ¿τÑß¬á∩ »α«µÑñπαá MIXHORIZONTAL ¼«ªÑΓ íδΓ∞ óßΓα«Ñ¡á ó ñαπú¿Ñ »α«µÑñπαδ. ¥Γ« ¡Ñ ΓαÑíπÑΓ ñ«»«½¡¿ΓÑ½∞¡«ú« »α«úαá¼¼¿α«óá¡¿∩, »«ß¬«½∞¬π ßá¼á MIXHORIZONTAL »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¼«ñ¿Σ¿¬áµ¿ε »α«µÑñπαδ HORIZONTAL. ä½∩ φΓ«ú« ñ«ßΓáΓ«τ¡« ºá¼Ñ¡¿Γ∞ ¿¼∩ ¬«¼á¡ñδ HORIZONTAL ¡á MIXHORIZONTAL. ÆαÑíπÑΓß∩ Γá¬ªÑ «»αÑñÑ½¿Γ∞ »áαá¼ÑΓα Mix. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ φΓ¿σ »α«úαá¼¼ ¼δ ºñÑß∞ »«óΓ«α∩Γ∞ ¡Ñ ßΓá¡Ñ¼. ä«»«½¡¿ΓÑ½∞¡πε ¿¡Σ«α¼áµ¿ε ß¼. ó αáºñÑ½áσ 6.4.3 - 6.4.5. ìá óáΦ¿σ ñ¿ß¬ÑΓáσ ¡áσ«ñ∩Γß∩ ½¿ßΓ¿¡ú¿ »α«µÑñπαδ MIXBALL, »α«µÑñπαδ MIXCOLUMN ¿ »α«úαá¼¼δ MIXDEMO. 6.5.3 ä«»«½¡¿ΓÑ½∞¡δÑ ß»«ß«íδ αáí«Γδ ß µóÑΓ¡δ¼¿ »«óÑασ¡«ßΓ∩¼¿ (»α«úαá¼¼á Quadratic) ----------------------------------------------------------------- îδ »«º¡á¬«¼¿½¿ß∞ ß ΓÑ¼, ¬á¬ ß¼ÑΦÑ¡¿Ñ µóÑΓ«ó ¿ »ÑαÑ¼ÑΘÑ¡¿Ñ µóÑΓ¡δσ »¿¬ßÑ½Ñ⌐ ó »α«µÑñπαáσ MIXCOLUMN ¿ MIXBALL ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ñ½∩ ßú½áª¿óá¡¿∩ «íΩÑ¬Γ«ó ¿ »«½πτÑ¡¿∩ φΣΣÑ¬Γá ΓαÑσ¼Ñα¡«ßΓ¿ ¿º«íαáªÑ¡¿∩. îδ Γá¬ªÑ πó¿ñÑ½¿, ¬á¬ í«½∞Φ«Ñ º¡áτÑ¡¿Ñ ¬«φΣΣ¿µ¿Ñ¡Γá ß¼ÑΦÑ¡¿∩ Mix ¼«ªÑΓ αáºαπΦ¿Γ∞ φΣΣÑ¬Γ ßú½áª¿óá¡¿∩ ¿ »α¿óÑßΓ¿ ¬ Γ«¼π, τΓ« ¿º«íαáªÑ¡¿Ñ «íΩÑ¬Γá íπñÑΓ úαπíδ¼. äÑ¼«¡ßΓαáµ¿«¡¡á »α«úαá¼¼á »«¬áªÑΓ, τΓ« ¼δ ¼«ªÑ¼ ßñÑ½áΓ∞ »«ß½Ñ ºá»«½¡Ñ¡¿∩ »«óÑασ¡«ßΓ¿ «íΩÑ¬Γá ñ½∩ π¼Ñ¡∞ΦÑ¡¿∩ Γá¬«ú« φΣΣÑ¬Γá "αóá¡«ú«" ¿º«íαáªÑ¡¿∩. (ï¿ßΓ¿¡ú »α«úαá¼¼δ ß¼. ¡á ñ¿ß¬ÑΓÑ). é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »α«µÑßß ßú½áª¿óá¡¿∩ µóÑΓ«ó íπñÑΓ αáßß¼«ΓαÑ¡ í«½ÑÑ »«ñα«í¡«. Åα«úαá¼¼á α¿ßπÑΓ µóÑΓ¡πε »«óÑασ¡«ßΓ∞ (»α«µÑñπαá BLOCK) ¿ ¼¡«ú«µóÑΓ¡δ⌐ ßΓ«½íÑµ ΓÑσ ªÑ αáº¼Ñα«ó (»α«µÑñπαá COLUMN). çá ¡¿¼¿ ß½ÑñπεΓ ÑΘÑ ñóá ßΓ«½íµá Γ«ú« ªÑ αáº¼Ñαá ß« ßú½áªÑ¡¡δ¼¿ µóÑΓá¼¿ (»α«µÑñπαá MIXCOLUMN) ¿ ß úαπí« ß¼ÑΦá¡¡δ¼¿ µóÑΓá¼¿ (ß¡«óá MIXCOLUMN). ê ¡á¬«¡Ñµ, φΓ«Γ ßΓ«½íÑµ ßú½áª¿óáÑΓß∩ (»α«µÑñπαδ MIXCOLUMN ¿ ANTIALIA). 6.6 æú½áª¿óá¡¿Ñ µóÑΓ«ó: »α«µÑñπαá ANTIALIA ----------------------------------------------------------------- é ñá¡¡«¼ αáºñÑ½Ñ ¼δ αáßß¼«Γα¿¼ úαáΣ¿τÑß¬πε ¬«¼á¡ñπ, »αÑñ¡áº¡áτÑ¡¡πε ñ½∩ ßú½áª¿óá¡¿∩ µóÑΓ«ó. Åα«µÑßß ßú½áª¿óá¡¿∩ µóÑΓ«ó ¡á á¡ú½¿⌐ß¬«¼ ∩ºδ¬Ñ ¡áºδóáÑΓß∩ "anti-aliasing". ÄΓßεñá »α«¿º«Φ½« ¿¼∩ ¡áΦÑ⌐ ß½ÑñπεΘÑ⌐ »α«µÑñπαδ: ANTALIA. ANTALIA »«ºó«½∩ÑΓ áóΓ«¼áΓ¿τÑß¬¿ ßú½áª¿óáΓ∞ µóÑΓá «íΩÑ¬Γá, τΓ« »«ºó«½∩ÑΓ »«½πτáΓ∞ í«½ÑÑ ¿º∩Θ¡δÑ, ¼∩ú¬¿Ñ ¿ í«½ÑÑ αÑá½¿ßΓ¿τ¡δÑ ¿º«íαáªÑ¡¿∩. ¥Γá »α«µÑñπαá αáí«ΓáÑΓ Γ«½∞¬« ó αÑª¿¼Ñ 19, »«ß¬«½∞¬π φΓ« Ññ¿¡ßΓóÑ¡¡δ⌐ αÑª¿¼, »«ºó«½∩εΘ¿⌐ »«½πτáΓ∞ »«ñ«í¡δÑ φΣΣÑ¬Γδ. ¥Γá »α«µÑñπαá ¡Ñ ßΓ«½∞ ß½«ª¡á, ¬á¬ φΓ« ¼«ªÑΓ ß¡áτá½á »«¬áºáΓ∞ß∩. àÑ «ß¡«ó¡á∩ ¿ñÑ∩ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ αáºí¿Γ∞ µóÑΓ ¡á Ñú« ú«½πí«⌐, ºÑ½Ñ¡δ⌐ ¿ ¬αáß¡δ⌐ ¬«¼»«¡Ñ¡Γδ. çáΓÑ¼ ¬«¼»∞εΓÑα ßαáó¡¿Γ φΓ¿ µóÑΓá ß ñαπú¿¼¿ µóÑΓá¼¿ »á½¿Γαδ. Ç¡á½¿º¿απ∩ ñá¡¡δ⌐ »¿¬ßÑ½∞ ¿ µóÑΓá Ñú« ¡Ñ»«ßαÑñßΓóÑ¡¡«ú« «¬απªÑ¡¿∩, ¬«¼»∞εΓÑα ¼«ªÑΓ óδíαáΓ∞ »α¿Ñ¼½Ñ¼δ⌐ ßú½áª¿óáεΘ¿⌐ µóÑΓ. Å«ß¬«½∞¬π «»Γ¿¼á½∞¡δ⌐ µóÑΓ ßú½áª¿óá¡¿∩ «íδτ¡« ¡Ñ óσ«ñ¿Γ ó ΓÑ¬πΘπε »á½¿Γαπ, »α«¿ßσ«ñ¿Γ »α«ß¼«Γα »á½¿Γαδ, »«¬á ó ¡Ñ⌐ ¡Ñ íπñÑΓ ¡á⌐ñÑ¡ í½¿ªá⌐Φ¿⌐ ¬ «»Γ¿¼á½∞¡δ⌐ µóÑΓ. ¥Γ«Γ µóÑΓ íπñÑΓ ºáΓÑ¼ ¿ß»«½∞º«óá¡ ñ½∩ ºá¼ÑΘÑ¡¿∩ µóÑΓá á¡á½¿º¿απÑ¼«ú« »¿¬ßÑ½∩. æú½áª¿óá¡¿Ñ µóÑΓ«ó ß¿½∞¡« ó½¿∩ÑΓ ¡á Γ«, ¬á¬ óδú½∩ñ¿Γ «íΩÑ¬Γ. ¥Γ« »αÑ¬αáß¡δ⌐ ß»«ß«í πíαáΓ∞ φΣΣÑ¬Γ "»«½«ßáΓ«ßΓ¿", ¬«Γ«αδ⌐ ¼«ªÑΓ ó«º¡¿¬¡πΓ∞ ó ß½πτáÑ í«½∞Φ¿σ ¼¡«ú«µóÑΓ¡δσ «íΩÑ¬Γ«ó. Åα¿ φΓ«¼ ¿¡ΓÑαÑß¡«, τΓ« óßÑ φΓ« »α«¿ßσ«ñ¿Γ ó αÑª¿¼Ñ ¡¿º¬«ú« αáºαÑΦÑ¡¿∩ 320*200 »¿¬ßÑ½Ñ⌐ αÑª¿¼á 19. Äñ¡á¬« ¡¿º¬«Ñ αáºαÑΦÑ¡¿Ñ - φΓ« Γá µÑ¡á, ¬«Γ«απε »α¿σ«ñ¿Γß∩ »½áΓ¿Γ∞ ºá ó«º¼«ª¡«ßΓ∞ αáí«Γδ ß 256 µóÑΓá¼¿. é »α«Γ¿ó¡«¼ ß½πτáÑ »«ΓαÑí«óá½«ß∞ íδ ¿¼ÑΓ∞ ß½¿Φ¬«¼ í«½∞Φ«⌐ «íΩÑ¼ φ¬αá¡¡«⌐ »á¼∩Γ¿. ¥Γ« «úαá¡¿τÑ¡¿Ñ αáºαÑΦÑ¡¿∩ φ¬αá¡á ß¿½∞¡« ó½¿∩ÑΓ ¡á φΣΣÑ¬Γ "»«½«ßáΓ«ßΓ¿" µóÑΓ«ó, «Γ ¬«Γ«α«ú« ¼«ª¡« ¿ºíáó¿Γ∞ß∩ í½áú«ñáα∩ »α«µÑñπαÑ ANTALIA. ANTALIA ¿¼ÑÑΓ ¿ ñαπú¿Ñ ñ«ßΓ«¿¡ßΓóá. Ä¡á πí¿αáÑΓ «ßΓαδÑ ¬αá∩, ¬«Γ«αδÑ »«∩ó½∩εΓß∩ ¡á ¿º«íαáªÑ¡¿¿ «íΩÑ¬Γá, Ñß½¿ α∩ñ«¼ «¬áºδóáεΓß∩ ñóá ¬«¡ΓαáßΓ¡δσ µóÑΓá. Äñ¡«µóÑΓ¡δ¼ «íΩÑ¬Γá¼ ¼«ª¡« »α¿ñáΓ∞ ¼¡«ú«µóÑΓ¡δÑ αá¼¬¿, »½áó¡« »ÑαÑσ«ñ∩Θ¿Ñ ó «ß¡«ó¡«⌐ µóÑΓ «íΩÑ¬Γá. Æá¬ªÑ ó«º¼«ª¡δ φΣΣÑ¬Γδ »Ñαß»Ñ¬Γ¿óδ. æú½áª¿óá¡¿Ñ «í½áßΓÑ⌐ φ¬αá¡á »α¿ñáÑΓ »Ñαß»Ñ¬Γ¿óÑ í«½ÑÑ ¼∩ú¬¿⌐, ¡ÑßΣ«¬πß¿α«óá¡¡δ⌐ ó¿ñ. ¥Γ« »«ºó«½∩ÑΓ »«½πτ¿Γ∞ "ú½πí¿¡π" ¿º«íαáªÑ¡¿∩. èα«¼Ñ Γ«ú«, »α«ΘÑ ß«ºñáóáΓ∞ ¼Ñ½¬¿Ñ ΓÑ¬ßΓ«óδÑ Φα¿ΣΓδ, ¿ß»«½∞ºπ∩ ñ½∩ φΓ«ú« ßú½áªÑ¡¡δÑ ¿ «¬απú½Ñ¡¡δÑ Σ«α¼δ. üÑº ¼Ñ½¬¿σ ΓÑ¬ßΓ«óδσ Φα¿ΣΓ«ó ΓÑ¬ßΓ«óδ⌐ óδó«ñ ó αÑª¿¼Ñ 19 »α¿Φ½«ß∞ íδ óδ»«½¡∩Γ∞ »α¿ »«¼«Θ¿ ßΓá¡ñáαΓ¡«ú« ΓÑ¬ßΓ«ó«ú« óδó«ñá 40 ¡á 25 ß¿¼ó«½«ó. è«¼í¿¡áµ¿∩ ªÑ í«½∞Φ¿σ ¡Ñπ¬½εª¿σ ß¿¼ó«½«ó ß ¬αáß¿ó«⌐ µóÑΓ¡«⌐ úαáΣ¿¬«⌐ ¼á½«»α¿ó½Ñ¬áΓÑ½∞¡«. Å«ºñ¡ÑÑ ¼δ óÑα¡Ñ¼ß∩ ¬ ¿ñÑÑ ß«ºñá¡¿∩ ¼Ñ½¬¿σ ΓÑ¬ßΓ«óδσ Φα¿ΣΓ«ó. ÆÑ»Ñα∞ ªÑ ß«ßαÑñ«Γ«τ¿¼ß∩ ¡á ßú½áª¿óá¡¿¿ µóÑΓ«ó. î¡«ú¿Ñ ¿º óáß ñ«½ª¡δ º¡áΓ∞, τΓ« í«½∞Φ¿¡ßΓó« úαáΣ¿τÑß¬¿σ »α«úαá¼¼ πªÑ ¿ß»«½∞ºπÑΓ ßú½áª¿óá¡¿Ñ µóÑΓá. Äñ¡á¬« ßαáó¡¿óáΓ∞ ñ«ßΓπ»¡«ßΓ∞ φΓ«ú« ßαÑñßΓóá ó ú«Γ«ó«¼ »á¬ÑΓÑ ¿ ó ¬áτÑßΓóÑ «ΓñÑ½∞¡«⌐ ¬«¼á¡ñδ ó ßαÑñÑ »α«úαá¼¼¼¿α«óá¡¿∩, Γá¬«⌐ ¬á¬ Turbo Pascal, Γαπñ¡« »« ¿σ º¡áτ¿¼«ßΓ¿. â«Γ«óδÑ »α«úαá¼¼¡δÑ »á¬ÑΓδ ú«ñ∩Γß∩ ñ½∩ ß«ºñá¡¿∩ ¼¡«ú¿σ »α¿¬½áñ¡δσ »α«úαá¼¼. Äñ¡á¬« ñá¡¡δ⌐ αáºñÑ½ »αÑñ¡áº¡áτÑ¡ ñ½∩ »«½∞º«óáΓÑ½Ñ⌐, ªÑ½áεΘ¿σ ¿¼ÑΓ∞ »«½¡δ⌐ ¬«¡Γα«½∞ ¡áñ φ¬αá¡«¼ ¿ ¼«Θ¡δÑ ßαÑñßΓóá, »αÑñ½áúáÑ¼δÑ »α«µÑñπα«⌐ ßú½áª¿óá¡¿∩, ñ«ßΓπ»¡«⌐ ó ¬áτÑßΓóÑ «ΓñÑ½∞¡«⌐ ¬«¼á¡ñδ Åáß¬á½∩. îδ ¿ß»«½∞ºπÑ¼ φΓπ »α«µÑñπαπ ñ½∩ »«ßΓα«Ñ¡¿∩ ¡áΦÑ⌐ ß«íßΓóÑ¡¡«⌐ í¿í½¿«ΓÑ¬¿ αáßΦ¿αÑ¡¡δσ ¬«¼á¡ñ Turbo Pascal. é ß½ÑñπεΘÑ¼ αáºñÑ½Ñ ¼δ »α«αáí«ΓáÑ¼ ßÑα¿ε ¡«óδσ ¬«¼á¡ñ, ¿º ¬«Γ«αδσ ß«ºñáÑΓß∩ »α«µÑñπαá ßú½áª¿óá¡¿∩ ANTALIA. èáªñá∩ ¿º ß«ºñáóáÑ¼δσ ¡á¼¿ ó »α«µÑßßÑ ß«ºñá¡¿∩ ANTALIA »α«µÑñπα íπñÑΓ óδ»«½¡∩Γ∞ ß«íßΓóÑ¡¡πε π¡¿¬á½∞¡πε Σπ¡¬µ¿ε. êσ ßó«⌐ßΓóá íπñπΓ ¿½½εßΓα¿α«óáΓ∞ß∩ ¬«α«Γ¬¿¼¿ úαáΣ¿τÑß¬¿¼¿ ñÑ¼«¡ßΓαáµ¿«¡¡δ¼¿ »α«úαá¼¼á¼¿. 6.6.1 æτ¿Γδóá¡¿Ñ »á½¿Γαδ ----------------------------------------------------------------- è«¼á¡ñδ, ¬«Γ«αδÑ ¼δ ¿ß»«½∞º«óá½¿ ñ½∩ αáí«Γδ ß »á½¿Γα«⌐ VGA, Γá¬¿Ñ ¬á¬ "PALETTE(...)", "BLEND(...)" ¿ "ASSIGNCOLOR(...)", »αÑñ¡áº¡áτÑ¡δ ñ½∩ ¼á¡¿»π½¿α«óá¡¿∩ µóÑΓá¼¿ »á½¿Γαδ. ÆÑ»Ñα∞ ¡á¼ ¡πª¡á ¬«¼á¡ñá, ¬«Γ«αá∩ »«ºó«½¿½á íδ ßτ¿ΓδóáΓ∞ µóÑΓá ¿º ΓÑ¬πΘÑ⌐ »á½¿Γαδ. Ä»¿ßá¡¡á∩ óδΦÑ ¬«¼á¡ñá SHOWPALETTE »α«ßΓ« óδó«ñ¿Γ ¡á φ¬αá¡ ΓÑ¬πΘπε »á½¿Γαπ ó¿ñÑ«-αÑª¿¼á 19. ä½∩ ¡Ñ¬«Γ«αδσ ó¡πΓαÑ¡¡¿σ ¼á¡¿»π½∩µ¿⌐, ¬«Γ«αδÑ ¼δ σ«Γ¿¼ »α«¿ºó«ñ¿Γ∞ ß µóÑΓá¼¿, φΓ«ú« ¡Ññ«ßΓáΓ«τ¡«. 6.6.2 æτ¿Γδóá¡¿Ñ ¡«¼Ñαá ó »á½¿ΓαÑ (»α«µÑñπαá READPALETTE) ----------------------------------------------------------------- ùΓ«íδ πº¡áΓ∞, ¬á¬¿Ñ µóÑΓá ñ«ßΓπ»¡δ ó ΓÑ¬πΘÑ⌐ »á½¿ΓαÑ ó ΓÑ¬πΘ¿⌐ ¼«¼Ñ¡Γ, ¼δ ñ«½ª¡δ ¿¼ÑΓ∞ ¬«¼á¡ñπ, »«ºó«½∩εΘπε ¬«¼»∞εΓÑαπ «íαáΓ¿Γ∞ß∩ ¬ ¬«¡¬αÑΓ¡«¼π ¡«¼Ñαπ »á½¿Γαδ ¿ »α«á¡á½¿º¿α«óáΓ∞ ß««ΓóÑΓßΓóπεΘ¿⌐ Ñ¼π µóÑΓ. ä½∩ φΓ«ú« ¡πªÑ¡ ñ«ßΓπ» ¬ αÑú¿ßΓαá¼ »á½¿Γαδ. é αáºñÑ½Ñ 6.2 ¼δ πªÑ «»¿ßá½¿, ¬á¬ »α«¿ßσ«ñ¿Γ φΓ«Γ ñ«ßΓπ». ìá φΓ«Γ αáº »«¼¿¼« ñ«ßΓπ»á ¡á ºá»¿ß∞ ¡á¼ ¡πªÑ¡ ñ«ßΓπ» ¡á τΓÑ¡¿Ñ. ùΓ«íδ ¡Ñ óδºδóáΓ∞ »αÑαδóá¡¿Ñ ñóáªñδ, ¼δ »«¼ÑßΓ¿¼ óδº«ó »αÑαδóá¡¿∩ ¼Ñªñπ «íαáΘÑ¡¿∩¼¿ ¬ αÑú¿ßΓαá¼ - »«ß½Ñ ñ«ßΓπ»á ¡á ºá»¿ß∞ ¿ »ÑαÑñ ñ«ßΓπ»«¼ ¡á τΓÑ¡¿Ñ. ¥Γ« úáαá¡Γ¿απÑΓ, τΓ« óó«ñ ó Σπ¡¬µ¿ε íπñÑΓ ¡á ßó«Ñ¼ ¼ÑßΓÑ. ä«ßΓπ» ¡á τΓÑ¡¿Ñ óδ»«½¡∩ÑΓß∩ »«ßαÑñßΓó«¼ óδº«óá »αÑαδóá¡¿∩. é αÑºπ½∞ΓáΓÑ óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿ ªÑ½áÑ¼δÑ º¡áτÑ¡¿∩ µóÑΓ«ó ¬áªπΓß∩ ñ«ßΓπ»¡δ¼¿ »α«µÑñπαÑ ñ½∩ τΓÑ¡¿∩. (ï¿ßΓ¿¡ú »α«úαá¼¼δ ß¼. ¡á ñ¿ß¬ÑΓÑ). 6.6.3 æτ¿Γδóá¡¿Ñ µóÑΓá »á½¿Γαδ ¡Ñ»«ßαÑñßΓóÑ¡¡« ß φ¬αá¡á ----------------------------------------------------------------- ÆÑ»Ñα∞ ¼δ ¼«ªÑ¼ ß«ºñáΓ∞ ¬«¼á¡ñπ, ¬«Γ«αá∩ »«ºó«½¿Γ ¡á¼ óδíαáΓ∞ ¿ »α«τ¿ΓáΓ∞ ¡«¼Ñα µóÑΓá ó »á½¿ΓαÑ ½εí«ú« »¿¬ßÑ½∩ φ¬αá¡á ó αÑª¿¼Ñ 19. ä½∩ φΓ«ú« ñ«ßΓπ» ¬ αÑú¿ßΓαá¼ »α¿ »«¼«Θ¿ READPALETTE(...) ¬«¼í¿¡¿απÑΓß∩ ß »α∩¼δ¼ ñ«ßΓπ»«¼ ¬ φ¬αá¡¡«⌐ »á¼∩Γ¿ »α¿ »«¼«Θ¿ ßΓá¡ñáαΓ¡«⌐ ¬«¼á¡ñδ Åáß¬á½∩ mem[...]. ìá óσ«ñÑ φΓ«⌐ »α«µÑñπαÑ »«ΓαÑíπεΓß∩ ¬««αñ¿¡áΓδ á¡á½¿º¿απÑ¼«ú« »¿¬ßÑ½∩. çá»α«ß µóÑΓá »á½¿Γαδ ñ½∩ »¿¬ßÑ½∩ ¡á φ¬αá¡Ñ óδ»«½¡∩ÑΓß∩, ¬á¬ φΓ« óδΦÑ íδ½« «»¿ßá¡« ñ½∩ ¬«¼á¡ñδ PEEK. Å«½πτÑ¡¡δ⌐ ¡«¼Ñα µóÑΓá ñá½ÑÑ á¡á½¿º¿απÑΓß∩ »α¿ »«¼«Θ¿ READPALETTE, ¿ óδñÑ½∩εΓß∩ Ñú« ¬αáß¡á∩, ºÑ½Ñ¡á∩ ¿ ú«½πíá∩ ¬«¼»«¡Ñ¡Γδ. ¥Γ¿ Γα¿ º¡áτÑ¡¿∩ µóÑΓá ºáΓÑ¼ »ÑαÑñáεΓß∩ ó »α«µÑñπαπ ó ¬áτÑßΓóÑ αÑºπ½∞ΓáΓá. procedure PeekPalette (var x,y,Blue,Green,Red : Integer); var (* ßτ¿Γδóá¡¿Ñ «ΓñÑ½∞¡δσ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ *) Color: Integer; (* óδíαá¡¡«ú« »¿¬ßÑ½∩ ¡á φ¬αá¡Ñ *) begin (* ß««ΓóÑΓßΓóπÑΓ Peek(...);ReadPalette(...);*) Blue:=0; Green:=0; Red:=0; (* ¿¡¿µ¿á½¿ºáµ¿∩ º¡áτÑ¡¿⌐ ¬«¼»«¡Ñ¡Γ *) if (x<320) and (x>=0) and (y<200) and (y>=0) then begin (* «»αÑñÑ½Ñ¡¿Ñ úαá¡¿µ φ¬αá¡á *) Color:=Mem[$A000+y*20:x]; (* ß««ΓóÑΓßΓóπÑΓ Peek(x,y,Color); *) ReadPalette(Color,Blue,Green,Red); (* ¿º ¼«ñπ½∩ VGA19 *) (* αáßΘÑ»½Ñ¡¿Ñ µóÑΓá ¡á 3 ¬«¼»«¡Ñ¡Γδ *) end; end; ò«Γ∩ φΓá »α«µÑñπαá ¿ ¬áªÑΓß∩ »α«ßΓ«⌐, »α¿ αÑ¬παß¿ó¡«¼ óδº«óÑ ßΓá¡«ó¿Γß∩ ó¿ñ¡δ¼ ñα«ªá¡¿Ñ í½«¬á. Åα«í½Ñ¼á ßó∩ºá¡á ß óδº«ó«¼ »αÑαδóá¡¿∩ ¿º ¬«¼á¡ñδ READPALETTE. äá¡¡δ⌐ óδº«ó »αÑαδóá¡¿∩ ΓαÑíπÑΓ ñ«»«½¡¿ΓÑ½∞¡«ú« »α«µÑßß«α¡«ú« óαÑ¼Ñ¡¿. Å«óΓ«α∩εΘ¿Ñß∩ óδº«óδ ¼«úπΓ »α¿óÑßΓ¿ ¬ ¡Ñ¡πª¡δ¼ »áπºá¼ ó óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ. èα«¼Ñ Γ«ú«, ¬áªñ«Ñ »αÑαδóá¡¿Ñ αáºαδóáÑΓ ßó∩º∞ ¼Ñªñπ »α«µÑßß«α«¼ ¿ φ¬αá¡«¼. î¡«ªÑßΓóÑ¡¡δÑ ¿σ »«óΓ«αÑ¡¿∩ ¼«úπΓ »«ó½¿∩Γ∞ ¡á ¿º«íαáªÑ¡¿Ñ ¡á ñ¿ß»½ÑÑ. Åα¿ «íαáí«Γ¬Ñ í«½∞Φ«⌐ τáßΓ¿ φ¬αá¡á φΓ¿ φΣΣÑ¬Γδ ßΓá¡«ó∩Γß∩ ºá¼ÑΓ¡δ¼¿, τΓ« ß¡¿ªáÑΓ ¬áτÑßΓó« ¬áαΓ¿¡¬¿ ¡á φ¬αá¡Ñ. Å«φΓ«¼π ¼δ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ á½∞ΓÑα¡áΓ¿ó¡πε »α«µÑñπαπ, ¬«Γ«αá∩ πßΓαá¡∩ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ó »«óΓ«α¡δσ óδº«óáσ »αÑαδóá¡¿∩. é φΓ¿σ µÑ½∩σ ¼δ »ÑαÑ¡«ß¿¼ óδº«ó »αÑαδóá¡¿∩ ó Γ«τ¬π »α«úαá¼¼δ, úñÑ óδº«ó íπñÑΓ »α«¿ßσ«ñ¿Γ∞ ¡Ñ ß½¿Φ¬«¼ τáßΓ«. ä½∩ φΓ«ú« óß∩ ΓÑ¬πΘá∩ »á½¿Γαá VGA ñ«½ª¡á íδΓ∞ ßτ¿Γá¡á ó Γáí½¿µπ »ÑαÑ¼Ñ¡¡δσ »á¼∩Γ¿. Åα¿ φΓ«¼ ¡πª¡« ß½Ññ«óáΓ∞ »αáó¿½á¼ Åáß¬á½∩ ñ½∩ αáí«Γδ ß ¿¡ñÑ¬ß¿α«óá¡¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. ä«»«½¡¿ΓÑ½∞¡πε ¿¡Σ«α¼áµ¿ε « ß«ºñá¡¿¿ á½∞ΓÑα¡áΓ¿óδ »α«µÑñπαÑ PEEKPALETTE ß¼. ó ß½ÑñπεΘÑ¼ αáºñÑ½Ñ. 6.6.4. æ«ºñá¡¿Ñ »ÑαÑ¼Ñ¡¡δσ ß»¿ß¬«ó ñ½∩ µóÑΓ«ó »á½¿Γαδ ----------------------------------------------------------------- é ñá¡¡«¼ αáºñÑ½Ñ «»¿ßá¡«, ¬á¬ »«¼ÑßΓ¿Γ∞ º¡áτÑ¡¿∩ ΓÑ¬πΘÑ⌐ »á½¿Γαδ VGA ó »ÑαÑ¼Ñ¡¡δÑ ß»¿ß¬¿. ÆÑ¼ ßá¼δ¼ ¼δ ß¼«ªÑ¼ ¿ºíÑªáΓ∞ óδº«óá »αÑαδóá¡¿∩ »α¿ ßτ¿Γδóá¡¿¿ ¬áªñ«ú« ¡«ó«ú« µóÑΓá »á½¿Γαδ. Æáí½¿µá ¿¡ñÑ¬ß¿α«óá¡¡δσ »ÑαÑ¼Ñ¡¡δσ íπñÑΓ ß«ßΓ«∩Γ∞ ¿º ΓαÑσ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ: ú«½πí«⌐, ºÑ½Ñ¡«⌐ ¿ ¬αáß¡«⌐ ñ½∩ ¬áªñ«ú« ¿º 256 ¡«¼Ñα«ó µóÑΓá: var BL,GR,RE : Array [0...255] of Integer; ÅÑαÑ¼Ñ¡¡δ⌐ ¿¡ñÑ¬ß íπñÑΓ ∩ó½∩Γ∞ß∩ ¡«¼Ñα«¼ »á½¿Γαδ «Γ 0 ñ« 255. BL[¡«¼Ñα_µóÑΓá] - φΓ« ú«½πíá∩ ¬«¼»«¡Ñ¡Γá µóÑΓá, GR[¡«¼Ñα_µóÑΓá] - φΓ« ºÑ½Ñ¡á∩ ¬«¼»«¡Ñ¡Γá, á RE[¡«¼Ñα_µóÑΓá] - ¬αáß¡á∩. ìá»α¿¼Ñα, µóÑΓ«óδÑ ¬«¼»«¡Ñ¡Γδ µóÑΓá ¡«¼Ñα 97 ΓÑ¬πΘÑ⌐ »á½¿Γαδ íπñπΓ σαá¡¿Γ∞ß∩ ó Γáí½¿µÑ ó BL[97], GR[97] ¿ RE[97]. ç¡áτÑ¡¿∩ ñ½∩ ß»¿ß¬á ßτ¿ΓδóáεΓß∩ ¿º »½áΓδ VGA ¬«¼á¡ñ«⌐ "READPALETTE(¡«¼Ñα_µóÑΓá)" ¿ »ÑαÑñáεΓß∩ ó ¿¡ñÑ¬ß¿α«óá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ. éáª¡« »«¼¡¿Γ∞, τΓ« ß»¿ß«¬ »á½¿Γαδ ñ«½ªÑ¡ «í¡«ó½∩Γ∞ß∩ óß∩¬¿⌐ αáº »α¿ ó¡ÑßÑ¡¿¿ ¿º¼Ñ¡Ñ¡¿∩ ó »á½¿Γαπ. é »α«Γ¿ó¡«¼ ß½πτáÑ φΓ«Γ ß»¿ß«¬ íπñÑΓ ß«ñÑαªáΓ∞ πßΓáαÑóΦ¿Ñ ñá¡¡δÑ. öá¬Γ¿τÑß¬¿ φΓ« ΓαÑí«óá¡¿Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ Ññ¿¡ßΓóÑ¡¡δ⌐ ¡Ññ«ßΓáΓ«¬ ¿ß»«½∞º«óá¡¿∩ ß»¿ß¬á »á½¿Γαδ. Äñ¡á¬«, »α¿ φΓ«¼ ñá¡¡δ⌐ ß»«ß«í ¿¼ÑÑΓ ñóá ∩ó¡δσ »αÑ¿¼πΘÑßΓóá. ê¡ñÑ¬ß¿α«óá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ ß»¿ß¬á »á½¿Γαδ »«ºó«½∩ÑΓ íδßΓα« óδ»«½¡∩Γ∞ ñ«ßΓπ» ¬ ¬«¼»«¡Ñ¡Γá¼ ½εí«ú« µóÑΓá »á½¿Γαδ, »α¿τÑ¼ ¿ºíÑúá∩ »αÑαδóá¡¿⌐. Åα«µÑñπαá READPALETTE(...)" ∩ó½∩ÑΓß∩ ó »α¿ó«ñ¿¼«⌐ ¡¿ªÑ »α«úαá¼¼Ñ, ¿ß»«½∞ºπÑ¼«⌐ ñ½∩ ß«ºñá¡¿∩ ¿½¿ «í¡«ó½Ñ¡¿∩ ß»¿ß¬á »á½¿Γαδ, «í∩ºáΓÑ½∞¡«⌐. Å«¬áºá¡¡δ⌐ óδΦÑ ß»¿ß«¬ ¿¡ñÑ¬ß¿α«óá¡¡δσ »ÑαÑ¼Ñ¡¡δσ ñ«½ªÑ¡ πªÑ ßπΘÑßΓó«óáΓ∞. ¥Γ« «»αÑñÑ½Ñ¡¿Ñ ñ«½ª¡« »α«¿ßσ«ñ¿Γ∞ ó¡Ñ »α«µÑñπαδ, τΓ«íδ »«½πτáÑ¼δ⌐ ó αÑºπ½∞ΓáΓÑ ß»¿ß«¬ »á½¿Γαδ íδ½ ñ«ßΓπ»Ñ¡ ñαπú¿¼ »α«µÑñπαá¼. æ½ÑñπεΘ¿⌐ ½¿ßΓ¿¡ú »α¿óÑñÑ¡ Γ«½∞¬« ñ½∩ »α¿¼Ñαá ¿ ¡Ñ »αÑñ¡áº¡áτÑ¡ ñ½∩ ¬«¼»¿½∩µ¿¿ ¿ »«½πτÑ¡¿∩ ¿º ¡Ñú« αÑá½∞¡«⌐ »α«úαá¼¼δ. Program MAKELIST; { æ«ºñáÑΓ ß»¿ß«¬ µóÑΓ«ó ΓÑ¬πΘÑ⌐ »á½¿Γαδ } uses crt,dos,vga19; var Bl,Gr,Re : Array [0...255] of Integer; { ê¡ñÑ¬ß¿α«óá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ - φΓá Γáí½¿µá } { ¡πª¡á ñ½∩ LISTPALETTE ! } procedure ListPalette;{ æ«ºñá¡¿Ñ ñ½∩ »á½¿Γαδ Γáí½¿µδ ß« } begin { º¡áτÑ¡¿∩¼¿ ú«½πí«⌐, ºÑ½Ñ¡«⌐ } for x:=0 to 255 do { ¿ ¬αáß¡«⌐ ¬«¼»«¡Ñ¡Γ ñ½∩ µóÑΓá x } ReadPalette(x,Bl[x],Gr[x],Re[x]); end; begin { ú½áó¡á∩ τáßΓ∞ - ¬«¡Ñτ¡«, «¡á ¼«ªÑΓ íδΓ∞ º¡áτ¿ΓÑ½∞¡« } ListPalette; { í«½∞ΦÑ »« τ¿ß½π ¬«¼á¡ñ, ¡á»α¿¼Ñα Mode(19) } end. 6.6.5 æτ¿Γδóá¡¿Ñ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ (»α«µÑñπαá PEEKLIST) ----------------------------------------------------------------- ÆÑ»Ñα∞ óáΦ¿ »α«úαá¼¼δ ß¼«úπΓ ßτ¿ΓδóáΓ∞ µóÑΓ«óδÑ ¬«¼»«¡Ñ¡Γδ, ºá»αáΦ¿óá∩ ß»¿ß«¬ »á½¿Γαδ. Åα¿ φΓ«¼ ¿º«íαáªÑ¡¿Ñ ¡á φ¬αá¡Ñ ¡Ñ íπñÑΓ ¡áαπΦáΓ∞ß∩ ¿º-ºá óδ»«½¡∩Ñ¼δσ óδº«ó«ó »αÑαδóá¡¿⌐. öá¬Γ¿τÑß¬á∩ »á½¿Γαá ¿ ß««ΓóÑΓßΓóπεΘ¿⌐ ß»¿ß«¬ »á½¿Γαδ ¿º ¿¡ñÑ¬ß¿α«óá¡¡δσ »ÑαÑ¼Ñ¡¡δσ BL[..], GR[..] ¿ RE[..], ñ«½ª¡δ ß«ºñáóáΓ∞ß∩ ó ¡áτá½Ñ »α«úαá¼¼δ. Å«¼¡¿ΓÑ, τΓ« ß»¿ß«¬ »á½¿Γαδ óßÑúñá ñ«½ªÑ¡ «í¡«ó½∩Γ∞ß∩ ¬«¼á¡ñ«⌐ LISTPALETTE »«ß½Ñ ½εíδσ ¿º¼Ñ¡Ñ¡¿⌐, ó¡ÑßÑ¡¡δσ ó »á½¿Γαπ, ¡á»α¿¼Ñα, ¬«¼á¡ñá¼¿ PALETTE ¿½¿ BLEND. äαπúá∩ »«ñ½ÑªáΘá∩ αÑΦÑ¡¿ε »α«í½Ñ¼á ß«ßΓ«¿Γ ó Γ«¼, ¬á¬ ¿ß»«½∞º«óáΓ∞ ¡áΦ ¡«óδ⌐ ß»¿ß«¬ »á½¿Γαδ ñ½∩ »«½πτÑ¡¿∩ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ ºáñá¡¡«⌐ Γ«τ¬¿ φ¬αá¡á. ä½∩ φΓ«ú« ¡πª¡« «íΩÑñ¿¡¿Γ∞ »α«µÑñπαπ PEEK c ºá»α«ß«¼ ΓÑ¬πΘÑú« ß»¿ß¬á »á½¿Γαδ. ¥Γá »α«µÑñπαá «τÑ¡∞ »«σ«ªá ¡á PEEKPALETTE. (ï¿ßΓ¿¡ú »α«úαá¼¼δ ß¼. ¡á ñ¿ß¬ÑΓÑ). 6.6.6 Å«¿ß¬ á¡á½«ú¿⌐ (»α«µÑñπαá SIMILAR) ----------------------------------------------------------------- ÆÑ»Ñα∞ ¼δ ñ«½ª¡δ ¡áπτ¿Γ∞ ¬«¼»∞εΓÑα ¿ß¬áΓ∞ ¿ αáß»«º¡áóáΓ∞ á¡á½«ú¿¿ ¼Ñªñπ µóÑΓá¼¿. ¥Γá »α«µÑñπαá íÑαÑΓ ½εí«⌐ ¿º 262144 ó«º¼«ª¡δσ µóÑΓ«ó VGA ¿ ßαáó¡¿óáÑΓ Ñú« ß 256 µóÑΓá¼¿ ΓÑ¬πΘÑ⌐ »á½¿Γαδ. èα«¼Ñ Γ«ú«, »α«µÑñπαá óδó«ñ¿Γ ¡«¼Ñα ¿ »á½¿ΓαÑ ¡á¿í«½ÑÑ í½¿º¬« ¬ ºáñá¡¡«¼π ¡á⌐ñÑ¡¡«ú« µóÑΓá. æπΘÑßΓóπεΘ¿⌐ ß»¿ß«¬ »á½¿Γαδ ∩ó½∩ÑΓß∩ ó¡ÑΦ¡¿¼ »« «Γ¡«ΦÑ¡¿ε ¬ φΓ«⌐ »α«µÑñπαÑ, ¿ ñá¡¡«Ñ ΓαÑí«óá¡¿Ñ ∩ó½∩ÑΓß∩ áíß«½εΓ¡δ¼. æ»¿ß«¬ »á½¿Γαδ »ÑαÑñ ¿ß»«½∞º«óá¡¿Ñ¼ ñ«½ªÑ¡ íδΓ∞ «í¡«ó½Ñ¡ »α¿ »«¼«Θ¿ LISTPALETTE. (ï¿ßΓ¿¡ú »α«úαá¼¼δ ß¼. ¡á ñ¿ß¬ÑΓÑ). var Bl,Gr,Re:Array [0...255] of Integer; { ß»¿ß«¬ »á½¿Γαδ } { ¥Γá Γáí½¿µá »ÑαÑñ ¿ß»«½∞º«óá¡¿Ñ¼ ñ«½ª¡á íδΓ∞ ºá»«½¡Ñ¡á } { »α¿ »«¼«Θ¿ ¬«¼á¡ñδ ListPalette } æ»¿ß«¬ »á½¿Γαδ (Γáí½¿µá) Γá¬ªÑ ñ«½ªÑ¡ íδΓ∞ óóÑñÑ¡ ó ßΓα«¬Ñ «»αÑñÑ½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡δσ, Γá¬ τΓ«íδ «¡ ¼«ú íδΓ∞ ºá»«½¡Ñ¡ º¡áτÑ¡¿∩¼¿ ¿º ΓÑ¬πΘÑ⌐ »á½¿Γαδ. ìÑ«íσ«ñ¿¼δÑ »α«µÑñπαδ ¿ »ÑαÑ¼Ñ¡¡δÑ ñ«½ª¡δ íδΓ∞ ó¬½ετÑ¡δ ó »α«úαá¼¼π ñ« Γ«ú«, ¬á¬ ¬«¼»∞εΓÑα ß¼«ªÑΓ Σá¬Γ¿τÑß¬¿ αáí«ΓáΓ∞ ß ¡¿¼¿ ó ß½ÑñπεΘ¿σ »α«µÑñπαáσ. Éá¡ÑÑ »αÑñßΓáó½Ñ¡¡δÑ »α«µÑñπαδ, ¿ß»«½∞ºπÑ¼δÑ ñ½∩ α¿ß«óá¡¿∩ ½¿¡¿⌐ ¿ «¬απª¡«ßΓÑ⌐, αáº½¿τ¡δ. Åα«µÑñπαá SIMILAR ¡Ñ αáí«ΓáÑΓ ß óσ«ñ¡δ¼¿ »áαá¼ÑΓαá¼¿ ¿½¿ ¼áΓÑ¼áΓ¿τÑß¬«⌐ Σπ¡¬µ¿Ñ⌐. â½áó¡δ⌐ µ¿¬½ »α«µÑñπαδ óδ»«½¡∩ÑΓß∩ íÑº ºáñá¡¡δσ »áαá¼ÑΓα«ó ñ« ΓÑσ »«α, »«¬á ¡Ñ íπñÑΓ óδ»«½¡Ñ¡« ¡Ñ¬«Γ«α«Ñ πß½«ó¿Ñ. ¥Γ«Γ µ¿¬½ αáßΦ¿α∩ÑΓ ñ¿á»áº«¡ »«¿ß¬á ñ½∩ º¡áτÑ¡¿⌐ ¬áªñ«⌐ µóÑΓ«ó«⌐ ¬«¼»«¡Ñ¡Γδ ñ« ΓÑσ »«α, »«¬á ¡Ñ íπñÑΓ ¡á⌐ñÑ¡ µóÑΓ, óßÑ µóÑΓ«óδÑ ¬«¼»«¡Ñ¡Γδ ¬«Γ«α«ú« «¬áªπΓß∩ ó »αÑñÑ½áσ φΓ«ú« ñ¿á»áº«¡á. Éáº¼Ñα »«¿ß¬«ó«ú« ñ¿á»áº«¡á ºáó¿ß¿Γ «Γ Γ«ú«, ß¬«½∞¬« αáº íπñÑΓ óδ»«½¡Ñ¡ µ¿¬½. ¥Γ« τ¿ß½« Γá¬ªÑ «»αÑñÑ½∩ÑΓ ßΓÑ»Ñ¡∞ Γ«ú«, ¡áß¬«½∞¬« ¡á⌐ñÑ¡¡δ⌐ µóÑΓ ß««ΓóÑΓßΓóπÑΓ ºáñá¡¡«¼π. àß½¿ φΓ« τ¿ß½« ß«σαá¡Ñ¡« ¿ »ÑαÑñá¡«, Γ« »α«µÑñπαá REFERENCECOLOR ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ Ñú« ó ¬áτÑßΓóÑ »áαá¼ÑΓαá "RTG", ¿½¿ "αÑ⌐Γ¿¡úá" ¬áτÑßΓóá ¡á⌐ñÑ¡¡«ú« ß««ΓóÑΓßΓó¿∩. ä½∩ φΓ«⌐ »α«µÑñπαδ «í∩ºáΓÑ½∞¡δ¼ ΓαÑí«óá¡¿Ñ¼ ∩ó½∩ÑΓß∩ ß«ºñá¡¿Ñ ß»¿ß¬á »á½¿Γαδ. (ï¿ßΓ¿¡ú »α«úαá¼¼δ ß¼. ¡á ñ¿ß¬ÑΓÑ). ìá»α¿¼Ñα, Ñß½¿ ¬«¼»∞εΓÑα ¡áΦÑ½ ó »á½¿ΓαÑ µóÑΓ, «τÑ¡∞ í½¿º¬¿⌐ ¬ ¿ß¬«¼«¼π, αÑ⌐Γ¿¡ú (Rtg) ß««ΓóÑΓßΓó¿∩ íπñÑΓ αáóÑ¡ 1, ¿½¿ "«τÑ¡∞ σ«α«Φ«". àß½¿ ΓÑ¬πΘá∩ »á½¿Γαá ¡Ñ ß«ñÑαª¿Γ »«σ«ªÑú« µóÑΓá, µ¿¬½ íπñÑΓ »«óΓ«αÑ¡ ñ« ΓÑσ »«α, »«¬á º¡áτÑ¡¿Ñ RTG ¡Ñ ñ«ßΓ¿ú¡ÑΓ ¼á¬ß¿¼π¼á, αáó¡«ú« 6. Åáαá¼ÑΓα αÑ⌐Γ¿¡úá RTG ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡ ó ñαπú¿σ »α«úαá¼¼áσ ñ½∩ »α¿¡∩Γ¿∩ αÑΦÑ¡¿∩ « Γ«¼, ßΓ«¿Γ ½¿ ¿ß»«½∞º«óáΓ∞ µóÑΓ, ¡á⌐ñÑ¡¡δ⌐ »α¿ »«¿ß¬Ñ. äÑ¼«¡ßΓαáµ¿«¡¡«⌐ »α«úαá¼¼Ñ ΓαÑíπÑΓß∩ ¼«ñπ½∞ VGA19. 6.6.7 æú½áª¿óá¡¿Ñ ó í½«¬áσ (»α«µÑñπαá ANTALIA) ----------------------------------------------------------------- Åα«µÑñπαá ANTALIA αáí«ΓáÑΓ ß »α∩¼«πú«½∞¡δ¼ í½«¬«¼. Ä¡á ß«ñÑαª¿Γ »α«µÑñπαπ BLOCK ó ¬áτÑßΓóÑ »«ñ»α«úαá¼¼δ. Éáº½¿τ¿Ñ ß«ßΓ«¿Γ ó Γ«¼, τΓ« í½«¬ ¡Ñ ºá»«½¡∩ÑΓß∩ «ñ¡¿¼ µóÑΓ«¼. ûóÑΓá, ¿ß»«½∞ºπÑ¼δÑ ñ½∩ ºá¬αáΦ¿óá¡¿∩ í½«¬á, ßú½áª¿óáεΓß∩. é« óαÑ¼∩ αáí«Γδ φΓ«⌐ »α«µÑñπαδ ¬«¼á¡ñá LISTPALETTE ¿ß»«½∞ºπÑΓß∩ ñ½∩ ºá»«½¡Ñ¡¿∩ ß»¿ß¬á »á½¿Γαδ º¡áτÑ¡¿∩¼¿ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ µóÑΓ«ó ΓÑ¬πΘÑ⌐ »á½¿Γαδ VGA. Åα«µÑñπαá PEEKLIST Γá¬ªÑ ∩ó½∩ÑΓß∩ ¡Ñ«íσ«ñ¿¼«⌐. Ä¡á ß½πª¿Γ ñ½∩ ßτ¿Γδóá¡¿∩ µóÑΓá ¬áªñ«⌐ Γ«τ¬¿ ó «»αÑñÑ½Ñ¡¡«¼ í½«¬Ñ. äαπúá∩ »«ñΣπ¡¬µ¿∩ á¡á½¿º¿απÑΓ Γ«τ¬¿, «¬απªáεΘ¿Ñ ¬áªñδ⌐ «ΓñÑ½∞¡δ⌐ »¿¬ßÑ½∞, «íαáíáΓδóáÑ¼δ⌐ »α«µÑñπα«⌐. ü«½ÑÑ ¬«¡¬αÑΓ¡«, ßπΘÑßΓóπÑΓ τÑΓδαÑ Γ«τ¬¿ ¡Ñ»«ßαÑñßΓóÑ¡¡« ß»αáóá, ß½Ñóá, óóÑασπ ¿ ó¡¿ºπ «Γ «íαáíáΓδóáÑ¼«ú« »¿¬ßÑ½∩. Æα¿ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γá φΓ¿σ Γ«τÑ¬ ß¬½áñδóáεΓß∩ ¿ ñÑ½∩Γß∩ ¡á τÑΓδαÑ, τΓ« ñáÑΓ ßαÑñ¡¿⌐ µóÑΓ Γ«τÑ¬ ó «¬αÑßΓ¡«ßΓ∩σ ñá¡¡«ú« »¿¬ßÑ½∩. ¥Γ«Γ ßαÑñ¡¿⌐ µóÑΓ ß«ºñáÑΓß∩ ¿º ßαÑñ¡¿σ º¡áτÑ¡¿⌐ ú«½πí«⌐, ºÑ½Ñ¡«⌐ ¿ ¬αáß¡«⌐ ¬«¼»«¡Ñ¡Γ «¬απªáεΘ¿σ Γ«τÑ¬. é í«½∞Φ¿¡ßΓóÑ ß½πτáÑó Γá¬«⌐ µóÑΓ ó »á½¿ΓαÑ «ΓßπΓßΓóπÑΓ. æ½Ññ«óáΓÑ½∞¡«, ¼δ ñ«½ª¡δ ¡á⌐Γ¿ ó ΓÑ¬πΘÑ⌐ »á½¿ΓαÑ ¡á¿½πτΦÑÑ »α¿í½¿ªÑ¡¿Ñ ¬ φΓ«¼π ¿ñÑá½∞¡«¼π µóÑΓπ, τΓ«íδ óδ»«½¡¿Γ∞ Σπ¡¬µ¿ε ßú½áª¿óá¡¿∩. ¥Γá τáßΓ∞ »α«úαá¼¼δ óδ»«½¡∩ÑΓß∩ »α«µÑñπα«⌐ REFERENCECOLOR. èáτÑßΓó« ß««ΓóÑΓßΓó¿∩ ¼Ñªñπ ¿ñÑá½∞¡δ¼ µóÑΓ«¼ ßú½áª¿óá¡¿∩ ¿ í½¿ªá⌐Φ¿¼ µóÑΓ«¼ ó »á½¿ΓαÑ óδτ¿ß½∩ÑΓß∩ »«ßαÑñßΓó«¼ »áαá¼ÑΓαá "ÉÑ⌐Γ¿¡ú". ü½¿ªá⌐Φ¿⌐ µóÑΓ ó »á½¿ΓαÑ íπñÑΓ ¿ß»«½∞º«óá¡ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ αÑ⌐Γ¿¡ú ¼Ñ¡∞ΦÑ ¿½¿ αáóÑ¡ 2. ((ï¿ßΓ¿¡ú »α«úαá¼¼δ ß¼. ¡á ñ¿ß¬ÑΓÑ). 6.7 Å«ß½Ññ«óáΓÑ½∞¡«Ñ ßú½áª¿óá¡¿Ñ »« »¿¬ßÑ½∩¼ ----------------------------------------------------------------- îδ Γá¬ªÑ ¼«ªÑ¼ αáºαáí«ΓáΓ∞ »α«µÑñπαδ á¡á½«ú¿τ¡δÑ ANTALIA, ñ½∩ ßú½áª¿óá¡¿∩ ¡Ñ »α∩¼«πú«½∞¡δσ «í½áßΓÑ⌐. Äñ¡á ¿º ¡¿σ íπñÑΓ ß½πª¿Γ∞ ñ½∩ ßú½áª¿óá¡¿∩ ¬«¡¬αÑΓ¡δσ »¿¬ßÑ½Ñ⌐. ¥Γπ »α«µÑñπαπ ¼«ª¡« ºáΓÑ¼ ¿ß»«½∞º«óáΓ∞ ñ½∩ »«ßΓα«Ñ¡¿∩ ¡«óδσ »α«µÑñπα ßú½áª¿óá¡¿∩ αáº½¿τ¡δσ Σ«α¼. Å«ñ«í¡« Γ«¼π, ¬á¬ »α«µÑñπαá BLOCK ∩ó½∩½áß∞ τáßΓ∞ε ANTALIA, »«ñ»α«úαá¼¼á α¿ß«óá¡¿∩ Γ«τ¬¿ ¡á φ¬αá¡Ñ íπñÑΓ ∩ó½∩Γ∞ß∩ óáª¡«⌐ τáßΓ∞ε ß½ÑñπεΘÑ⌐ »α«µÑñπαδ SMOOTH. Åα«µÑñπαá ANTALIA ¿ß»«½∞º«óá½á ñ½∩ óδτ¿ß½Ñ¡¿∩ «»Γ¿¼á½∞¡«ú« µóÑΓá ßú½áª¿óá¡¿∩ Γ«½∞¬« τÑΓδαÑ «¬απªáεΘ¿Ñ Γ«τ¬¿. é »α«Γ¿ó¡«¼ ß½πτáÑ ¼«ú íδ »«½πτ¿Γ∞ß∩ ß½¿Φ¬«¼ ß¿½∞¡δ⌐ φΣΣÑ¬Γ "»ÑαÑσ½ÑßΓá", ¬«Γ«αδ⌐ ßóÑ½ íδ ¡á ¡ÑΓ Σá¬Γ¿τÑß¬«Ñ ßú½áª¿óá¡¿Ñ. Åα¿ »«ß½Ññ«óáΓÑ½∞¡«¼ ßú½áª¿óá¡¿¿ »« »¿¬ßÑ½∩¼ »α¿ óδτ¿ß½Ñ¡¿¿ µóÑΓá ßú½áª¿óá¡¿∩ αáßß¼áΓα¿óáεΓß∩ τÑΓδαÑ «¬απªáεΘ¿Ñ Γ«τ¬¿, »½εß ßá¼á ΓÑ¬πΘá∩ Γ«τ¬á. ò«α«Φá∩ ¿ñÑ∩ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ ß«ºñáΓ∞ ßá¼π »α«µÑñπαπ SMOOTH, á ºáΓÑ¼ óßΓα«¿Γ∞ ÑÑ ó ñαπú¿Ñ, ¿ß»«½∞ºπεΘ¿Ñ ÑÑ »α«µÑñπαδ. ¥Γ« »«ºó«½¿Γ ¿ºíÑªáΓ∞ »«óΓ«αÑ¡¿∩ ¬«ñá »α«úαá¼¼δ ó ñαπú¿σ »α«µÑñπαáσ, ñÑ½á∩ ΓÑ¬ßΓ »α«úαá¼¼δ í«½ÑÑ »«¡∩Γ¡δ¼ ¿ ½Ñú¬¿¼ ñ½∩ ó«ß»α¿∩Γ¿∩. Å«ß½Ñ ½¿ßΓ¿¡úá SMOOTH ß½ÑñπÑΓ ¿ß»«½∞ºπεΘá∩ ÑÑ »α«µÑñπαá SMOOTHCIRCLE. ¥Γá »α«úαá¼¼á ΓαÑíπÑΓ ¼«ñπ½∞ VGA19, ß«ñÑαªá¡¿Ñ ¬«Γ«α«ú« »α¿ó«ñ¿Γß∩ ó ¬«¡µÑ ú½áóδ. É¿ß.9 äÑ¼«¡ßΓαáµ¿∩ »«ß½Ññ«óáΓÑ½∞¡«ú« ßú½áª¿óá¡¿∩ »« »¿¬ßÑ½∩¼ 6.8 î«ñ¿Σ¿¬áµ¿¿ ßπΘÑßΓóπεΘÑ⌐ »á½¿Γαδ ----------------------------------------------------------------- ä½∩ »«½πτÑ¡¿∩ ¡Ñ¬«Γ«αδσ φΣΣÑ¬Γ«ó óá¼ ¼«ªÑΓ »«¡áñ«í¿Γ∞ß∩ ó¡ÑßΓ¿ ¿º¼Ñ¡Ñ¡¿∩ ó í«½∞Φ«Ñ τ¿ß½« µóÑΓ«ó ßπΘÑßΓóπεΘÑ⌐ »á½¿Γαδ. ä½∩ φΓ«ú« ½πτΦÑ ¿¼ÑΓ∞ ó«º¼«ª¡«ßΓ∞ ¿º¼Ñ¡∩Γ∞ úαπ»»δ µóÑΓ«ó, á ¼«ªÑΓ íδΓ∞, ¿ óßε »á½¿Γαπ µÑ½¿¬«¼, á ¡Ñ ¿º¼Ñ¡∩Γ∞ ¬áªñδ⌐ µóÑΓ ó «ΓñÑ½∞¡«ßΓ¿. Äñ¿¡ ¿º ß»«ß«í«ó ¼«ñ¿Σ¿¬áµ¿¿ ß«ßΓ«¿Γ ó π»αáó½Ñ¡¿¿ ∩α¬«ßΓ∞ε, ¬á¬ ¡á ΓÑ½Ñó¿º«αÑ. éßÑ µóÑΓá »á½¿Γαδ (ºáñá¡¡«ú« ñ¿á»áº«¡á) »α¿ φΓ«¼ πóÑ½¿τ¿óáεΓ ¿½¿ π¼Ñ¡∞ΦáεΓ ∩α¬«ßΓ∞ ¡á ºáñá¡¡πε óÑ½¿τ¿¡π. æ½ÑñπεΘ¿Ñ ñóÑ »α«µÑñπαδ »αÑñßΓáó½∩εΓ αáº½¿τ¡δÑ ß»«ß«íδ πóÑ½¿τÑ¡¿∩ ¿½¿ π¼Ñ¡∞ΦÑ¡¿∩ ∩α¬«ßΓ¿ »á½¿Γαδ ºá ßτÑΓ ¼á¡¿»π½¿α«óá¡¿∩ ú«½πí«⌐, ºÑ½Ñ¡«⌐ ¿ ¬αáß¡«⌐ ¬«¼»«¡Ñ¡Γá¼¿ ¬áªñ«ú« µóÑΓá. 6.8.1 Çíß«½εΓ¡«Ñ αÑúπ½¿α«óá¡¿Ñ ∩α¬«ßΓ¿ µóÑΓ«ó »á½¿Γαδ ----------------------------------------------------------------- æ½ÑñπεΘá∩ »α«µÑñπαá, DIM, »«ºó«½∩ÑΓ αÑúπ½¿α«óáΓ∞ ∩α¬«ßΓ∞ µóÑΓ«ó »á½¿Γαδ, »α¿íáó½∩∩ ºáñá¡¡«Ñ º¡áτÑ¡¿Ñ ¬ ¬αáß¡«⌐, ºÑ½Ñ¡«⌐ ¿ ú«½πí«⌐ ¬«¼»«¡Ñ¡Γá¼ óδíαá¡¡δσ ¡«¼Ñα«ó »á½¿Γαδ. Å«½«ª¿ΓÑ½∞¡«Ñ º¡áτÑ¡¿Ñ πóÑ½¿τ¿óáÑΓ ∩α¬«ßΓ∞, á «Γα¿µáΓÑ½∞¡«Ñ π¼Ñ¡∞ΦáÑΓ. ¥Γá »α«µÑñπαá Γá¬ªÑ ¿ß»«½∞ºπÑΓ ß»¿ß«¬ µóÑΓ«ó »á½¿Γαδ, σαá¡¿¼δ⌐ ó ó¿ñÑ Γáí½¿µδ ¿¡ñÑ¬ß¿α«óá¡¡δσ »ÑαÑ¼Ñ¡¡δσ. êº¼Ñ¡Ñ¡¿∩ ¬«¡¬αÑΓ¡δσ ¬«¼»«¡Ñ¡Γ ß¡áτá½á óδ»«½¡∩ÑΓß∩ ó ß»¿ß¬Ñ »á½¿Γαδ »πΓÑ¼ »α¿íáó½Ñ¡¿∩ ó ß««ΓóÑΓßΓóπεΘ¿Ñ φ½Ñ¼Ñ¡Γδ ºáñá¡¡«ú« º¡áτÑ¡¿∩. Å«ß½Ñ Γ«ú«, ¬á¬ º¡áτÑ¡¿∩ ó ß»¿ß¬Ñ »á½¿Γαδ »αáó¿½∞¡« «Γ¬«ααÑ¬Γ¿α«óá¡δ, «¡¿ »ÑαÑñáεΓß∩ ó »½áΓπ VGA. æ«ñÑαª¿¼«Ñ ¬áªñ«⌐ ¿º ¿¡ñÑ¬ß¿α«óá¡¡δσ »ÑαÑ¼Ñ¡¡δσ BL[..], GR[..] ¿ RE[..] »ÑαÑñáεΓß∩ »«ßαÑñßΓó«¼ ¬«¼á¡ñδ PALETTE(...). Å«ß¬«½∞¬π φΓá ¬«¼á¡ñá »αÑñ¡áº¡áτÑ¡á ñ½∩ αáí«Γδ ¬á¬ ß «ΓñÑ½∞¡δ¼¿ ¡«¼Ñαá¼¿ »á½¿Γαδ, Γá¬ ¿ ß ñ¿á»áº«¡«¼ ¡«¼Ñα«ó, óδ»«½¡Ñ¡¿Ñ ú½áó¡«ú« µ¿¬½á ºáó¿ß¿Γ «Γ »Ñαó«ú« ¿ »«ß½Ññ¡Ñú« ¡«¼Ñα«ó ¿º¼Ñ¡∩Ñ¼δσ µóÑΓ«ó »á½¿Γαδ. äαπú¿Ñ µ¿¬½δ, »ÑαÑñáεΘ¿Ñ ¡«óδÑ º¡áτÑ¡¿∩ µóÑΓá ¿º ß»¿ß¬á »á½¿Γαδ »½áΓÑ VGA, óßÑúñá »α«íÑúáεΓ «Γ 0 ñ« 255. Æá¬¿¼ «íαáº«¼, »«ß½Ñ óδ»«½¡Ñ¡¿∩ DIM »á½¿Γαá ¿ ß»¿ß«¬ íπñπΓ óßÑúñá ß«ó»áñáΓ∞. æ½ÑñπεΘ¿⌐ ½¿ßΓ¿¡ú ºáó¿ß¿Γ «Γ ¼«ñπ½∩ VGA19, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »α¿¬«¼»«¡«óá¡ ¬«¼á¡ñ«⌐ uses ¬ ½εí«⌐ ¿ß»«½∞ºπεΘÑ⌐ Ñú« Åáß¬á½∞-»α«úαá¼¼Ñ. 6.8.2 ÄΓ¡«ß¿ΓÑ½∞¡«Ñ αÑúπ½¿α«óá¡¿Ñ ∩α¬«ßΓ¿ µóÑΓ«ó »á½¿Γαδ ----------------------------------------------------------------- Åα«µÑñπαá, ¬«Γ«απε ¼δ Γ«½∞¬« τΓ« αáßß¼áΓα¿óá½¿ ñ½∩ αÑúπ½¿α«óá¡¿∩ µóÑΓ«ó »á½¿Γαδ, ¿¼ÑÑΓ ¡Ññ«ßΓáΓ«¬, ß«ßΓ«∩Θ¿⌐ ó "ß¼δóá¡¿¿" µóÑΓ«ó ó ß½πτáÑ, Ñß½¿ ßñÑ½á¡δ ß¿½∞¡δÑ ¿º¼Ñ¡Ñ¡¿∩. ¥Γ«Γ φΣΣÑ¬Γ á¡á½«ú¿τÑ¡ "»ÑαÑñÑαª¬Ñ" ¿½¿ "¡Ññ«ñÑαª¬Ñ" »½Ñ¡¬¿ ó Σ«Γ«á»»áαáΓÑ »α¿ ßΩÑ¼¬Ñ. ¥Γ« »α«¿ßσ«ñ¿Γ ß½ÑñπεΘ¿¼ «íαáº«¼: Åα¿ »«»δΓ¬Ñ ñ«íáó¿Γ∞ áíß«½εΓ¡δ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ ∩α¬«ßΓ¿ ¬ ¿ íÑº Γ«ú« ∩α¬«¼π µóÑΓπ ú«½πíá∩, ºÑ½Ñ¡á∩ ¿ ¬αáß¡á∩ ¬«¼»«¡Ñ¡Γδ φΓ«ú« µóÑΓá ¼«úπΓ ñ«ßΓ¿ú¡πΓ∞ ¼á¬ß¿¼á½∞¡«ú« º¡áτÑ¡¿∩, αáó¡«ú« 63. ÉÑºπ½∞ΓáΓ«¼ ∩ó½∩ÑΓß∩ íÑ½δ⌐ µóÑΓ. Æ« ªÑ ßá¼«Ñ ß»αáóÑñ½¿ó« ¿ ñ½∩ ΓÑ¼¡δσ Γ«¡«ó. ùÑ¼ í«½∞ΦÑ µóÑΓ«óδσ ¬«¼»«¡Ñ¡Γ ñ«ßΓ¿úáÑΓ º¡áτÑ¡¿∩ 0, ΓÑ¼ í«½∞ΦÑ «í½áßΓÑ⌐ φ¬αá¡á óδú½∩ñ∩Γ τÑα¡δ¼¿. àß½¿ φΓ«Γ φΣΣÑ¬Γ αáß»α«ßΓαá¡¿Γß∩ ¡á ¡Ñß¬«½∞¬« µóÑΓ«ó »á½¿Γαδ, Γ« Γ«¡¬¿Ñ µóÑΓ«óδÑ αáº½¿τ¿∩ ¡Ñ¬«Γ«αδσ «í½áßΓÑ⌐ φ¬αá¡á ¼«úπΓ íδΓ∞ »«ΓÑα∩¡δ. æ½ÑñπεΘá∩ »α«µÑñπαá, DIMPERCENT, »αÑñ½áúáÑΓ ñαπú«⌐ ß»«ß«í αÑúπ½¿α«óá¡¿∩ ∩α¬«ßΓ¿ µóÑΓ«ó φ¬αá¡á. Ä¡á ¿º¼Ñ¡∩ÑΓ ∩α¬«ßΓ∞ ¡á ºáñá¡¡δ⌐ »α«µÑ¡Γ. ¥Γ« »«ºó«½∩ÑΓ óδ»«½¡∩Γ∞ «Γ¡«ß¿ΓÑ½∞¡«Ñ αÑúπ½¿α«óá¡¿Ñ óßÑσ ¿º¼Ñ¡∩Ñ¼δσ µóÑΓ«ó ¼Ñªñπ ¿σ ΓÑ¬πΘ¿¼¿ º¡áτÑ¡¿∩¼¿ ∩α¬«ßΓ¿ ¿ ¼á¬ß¿¼á½∞¡δ¼¿/¼¿¡¿¼á½∞¡δ¼¿. ÆÑ¼ ßá¼δ¼ ∩α¬¿Ñ ¿ ΓÑ¼¡δÑ Γ«¡á ¡Ñ íπñπΓ ¿º¼Ñ¡∩Γ∞ß∩ Γá¬ ªÑ ß¿½∞¡«, ¬á¬ ¿ ßαÑñ¡¿Ñ Γ«¡á, τΓ« »«ºó«½∩ÑΓ ß«σαá¡¿Γ∞ Γ«¡¬¿Ñ µóÑΓ«óδÑ «ΓΓÑ¡¬¿. èá¬ ¿ ó »αÑñδñπΘÑ⌐ »α«µÑñπαÑ, »«½«ª¿ΓÑ½∞¡δÑ º¡áτÑ¡¿∩ ¬«φΣΣ¿µ¿Ñ¡Γá ∩α¬«ßΓ¿ óÑñπΓ ¬ πóÑ½¿τÑ¡¿ε, á «Γα¿µáΓÑ½∞¡δÑ - ¬ π¼Ñ¡∞ΦÑ¡¿ε ∩α¬«ßΓ¿ ¿º«íαáªÑ¡¿∩. 6.8.3 ÅαÑ«íαáº«óá¡¿Ñ µóÑΓ«ó »á½¿Γαδ ó τ¿ßΓ« ßÑαδÑ Γ«¡á ----------------------------------------------------------------- é« óßÑσ »αÑñδñπΘ¿σ »α«µÑñπαáσ ¼δ σ«α«Φ« ¿ß»«½∞º«óá½¿ ßó«⌐ßΓóá ¼¡«ú«µóÑΓ¡«ßΓ¿ »½áΓδ VGA. ê¡«úñá óá¼ ¼«ªÑΓ »«¡áñ«í¿Γ∞ß∩ αáí«ΓáΓ∞ Γ«½∞¬« ß« º¡áτÑ¡¿∩¼¿ ∩α¬«ßΓ¿ µóÑΓ«ó »á½¿Γαδ. ä½∩ φΓ«ú« µóÑΓá »á½¿Γαδ »αÑ«íαáºπεΓß∩ ó ßÑαδÑ Γ«¡á. Åα«úαá¼¼á NEWPALETTE ß½πª¿Γ ñ½∩ φΓ«⌐ µÑ½¿, ¿ß»«½∞ºπ∩ óδº«ó »αÑαδóá¡¿∩ ñ½∩ ñ«ßΓπ»á ¬ ß»Ñµ¿á½∞¡δ¼ Σπ¡¬µ¿∩¼ VGA »αÑ«íαáº«óá¡¿∩ µóÑΓ«ó ó Φ¬á½π ßÑαδσ Γ«¡«ó. ä½∩ φΓ«ú« ú«½πíá∩, ºÑ½Ñ¡á∩ ¿ ¬αáß¡á∩ ¬«¼»«¡Ñ¡Γδ ¬áªñ«ú« µóÑΓá óºóÑΦ¿óáεΓß∩ «ΓñÑ½∞¡«, »«ß¬«½∞¬π ¬áªñá∩ ¿º ¡¿σ »«-αáº¡«¼π ó½¿∩ÑΓ ¡á «íΘπε ∩α¬«ßΓ∞ µóÑΓá. æÑαá∩ Φ¬á½á ñ½∩ ¬áªñ«ú« µóÑΓá óδí¿αáÑΓß∩ óδτ¿ß½Ñ¡¿Ñ¼ «íΘÑú« ¬«φΣΣ¿µ¿Ñ¡Γá ∩α¬«ßΓ¿ µóÑΓá. Åα«úαÑßß¿∩ «Γ íÑ½«ú« ¬ τÑα¡«¼π »«½¡«ßΓ∞ε "íÑßµóÑΓ¡á", Γá¬ ¬á¬ ¬áªñá∩ ¿º ú«½πí«⌐, ºÑ½Ñ¡«⌐ ¿ ¬αáß¡«⌐ ¬«¼»«¡Ñ¡Γ πßΓá¡áó½¿óáÑΓß∩ ñ½∩ »«½πτÑ¡¿∩ ßÑα«ú« Γ«¡á ó «ñ¡« ¿ Γ« ªÑ º¡áτÑ¡¿Ñ. Åαá¬Γ¿τÑß¬«Ñ »α¿¼Ñ¡Ñ¡¿Ñ φΓ«⌐ »α«úαá¼¼δ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ »αÑñóáα¿ΓÑ½∞¡« »α«ß¼áΓα¿óáΓ∞ úαáΣ¿τÑß¬¿Ñ ¿º«íαáªÑ¡¿Ñ¼ »ÑαÑñ »ÑτáΓ∞ε ¿σ ¡á τÑα¡«-íÑ½«¼ »α¿¡ΓÑαÑ. æ¼. ¡á ñ¿ß¬ÑΓÑ ½¿ßΓ¿¡ú »α«úαá¼¼δ NEWPALETTE. îÑªñπ »α«τ¿¼, φΓ« «ñ¡á ¿º ¡Ñ¼¡«ú¿σ »α«úαá¼¼ ñá¡¡«⌐ ú½áóδ, ¡Ñ ΓαÑíπεΘá∩ ¼«ñπ½∩ VGA19. àÑ ¼«ª¡« ß¬«¼»¿½¿α«óáΓ∞ ¿ óδ»«½¡¿Γ∞ »α«ßΓ« ó Turbo Pascal (4.0 ¿ Γ.ñ.). 6.9 çáóÑαΦÑ¡¡δ⌐ ¼«ñπ½∞ Åáß¬á½∩ ----------------------------------------------------------------- ùΓ«íδ ¡Ñ ¡áí¿αáΓ∞ ΓÑ¬ßΓδ »α«µÑñπα óß∩¬¿⌐ áº »α¿ ¿σ ¿ß»«½∞º«óá¡¿¿ ó »α«úαá¼¼Ñ, ß«ºñá⌐ΓÑ ¼«ñπ½∞ Åáß¬á½∩ ß φΓ¿¼¿ »α«µÑñπαá¼¿, ¬á¬ íδ½« ß¬áºá¡« ó ¡áτá½Ñ ñá¡¡«⌐ ú½áóδ. Å«½πτ¿óΦ¿⌐ß∩ ¼«ñπ½∞ íπñÑΓ ß½πª¿Γ∞ αáßΦ¿αÑ¡¿Ñ¼ ∩ºδ¬á Åáß¬á½∞. Ä¡ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡ ó ½εí«⌐ »α«úαá¼¼Ñ ¡á Åáß¬á½Ñ, »«ñ«í¡« ½εí«¼π ¿º ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐, Γá¬¿σ ¬á¬ GRAPH.TPU, ñ½∩ τÑú« ñ«ßΓáΓ«τ¡« ºáñáΓ∞ Ñú« ¿¼∩ ó ¬«¼á¡ñÑ uses. Å«¼¿¼« αáßß¼«ΓαÑ¡¡δσ »α«µÑñπα, ñ½∩ ß«ºñá¡¿∩ ºáóÑαΦÑ¡¡«ú« ¼«ñπ½∩ ¡á¼ »«¡áñ«í¿Γß∩ ñ«íáó¿Γ∞ ΓαÑíπÑ¼δÑ »ÑαÑ¼Ñ¡¡δÑ, ó Γ«¼ τ¿ß½Ñ ß»¿ß«¬ »á½¿Γαδ, ß«ßΓ«∩Θ¿⌐ ¿º ¿¡ñÑ¬ß¿α«óá¡¡δσ »ÑαÑ¼Ñ¡¡δσ. Æ«úñá »«óΓ«α∩Γ∞ «»αÑñÑ½Ñ¡¿∩ φΓ¿σ »ÑαÑ¼Ñ¡¡δσ ó ¬áªñ«⌐ ¡«ó«⌐ »α«úαá¼¼Ñ ¡Ñ »α¿ñÑΓß∩. æ½ÑñπεΘá∩ ßΓα«¬á ó ½εí«⌐ ¡«ó«⌐ »α«úαá¼¼Ñ íπñÑΓ óδºδóáΓ∞ ¼«ñπ½∞ VGA19.TPU: Uses crt, dos, VGA19; ¥Γá ßΓα«¬á ñ«½ª¡á ¡áσ«ñ¿Γ∞ß∩ ó óÑασ¡Ñ⌐ »«º¿µ¿¿ Åáß¬á½∞-»α«úαá¼¼δ, »ÑαÑñ «»αÑñÑ½Ñ¡¿Ñ¼ »ÑαÑ¼Ñ¡¡δσ. Æ«úñá óδ ß¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ó óáΦÑ⌐ »α«úαá¼¼Ñ ¡«óδÑ ¬«¼á¡ñδ: MODE, FRAMECOLOR, COLORTEXT, PALETTE, BLEND, JANSPALETTE, SHOWPALETTE, PLOT, PEEK, BLOCK, ASSIGNCOLOR, CIRCLE, DISK, LINE, FEATHER, BALL, COLUMN, FRAME, READPALETTE, LISTPALETTE, PEEKPALETTE, SMOOTH, REFERENCECOLOR, PEEKLIST, ANTALIA, ATALAYA, SMOOTHCIRCLE, DIM ¿ DIMPERCENT. é ¼«ñπ½Ñ Γá¬ªÑ íπñπΓ ¡áσ«ñ¿Γ∞ß∩ ¿ ñαπú¿Ñ »α«µÑñπαδ, ZEROKEY, MINITEXTXY, MINIPRINT ¿ GLASSPRINT, ¬«Γ«αδÑ ¡Ñ ∩ó½∩εΓß∩ ß»Ñµ¿á½∞¡δ¼¿ úαáΣ¿τÑß¬¿¼¿ ¬«¼á¡ñá¼¿. 6.9.1 ä«íáó½Ñ¡¿Ñ ó ¼«ñπ½∞ »α«µÑñπαδ ZEROKEY ----------------------------------------------------------------- Åα«µÑñπαá ZEROKEY ¡Ñ ∩ó½∩ÑΓß∩ úαáΣ¿τÑß¬«⌐ ¬«¼á¡ñ«⌐ VGA. ¥Γá ¬«¼á¡ñá »α«ßΓ« »«¼«ªÑΓ óá¼ ó ¡Ñ¬«Γ«αδσ ß½πτá∩σ ßφ¬«¡«¼¿Γ∞ πß¿½¿∩. î¡«ú¿Ñ »α«úαá¼¼δ ó ¡Ñ¬«Γ«α«⌐ Γ«τ¬Ñ «ßΓá¡áó½¿óáεΓ óδ»«½¡Ñ¡¿Ñ, ¿ »αÑªñÑ, τÑ¼ »α«ñ«½ª¿Γ∞ αáí«Γπ, ªñπΓ «Γ »«½∞º«óáΓÑ½∩ ¡áªáΓ¿Ñ ½εí«⌐ ¬½áó¿Φ¿. ìá»α¿¼Ñα, Ñß½¿ ¬½áó¿Φá íδ½á »« «Φ¿í¬Ñ ¡áªáΓá »α¿ αáß¬αáΦ¿óá¡¿¿ φ¬αá¡á, Γ« φΓ« ¡áªáΓ¿Ñ »«»áñÑΓ ó íπΣÑα ¬½áó¿áΓπαδ. é Γ«τ¬Ñ, úñÑ ªÑ½áΓÑ½∞¡á «ßΓá¡«ó¬á, ó φΓ«¼ ß½πτáÑ »áπºá ¡Ñ »α«¿º«⌐ñÑΓ. ¥Γ« «ß«íÑ¡¡« ¡Ñ»α¿∩Γ¡« ó« óαÑ¼∩ ß¬α«½¿¡úá ΓÑ¬ßΓá ¡á ñ¿ß»½ÑÑ, Γá¬ ¬á¬ ó φΓ«¼ ß½πτáÑ ¡πª¡δ⌐ φ¬αá¡ ¼«ªÑΓ "»α«ß¬«τ¿Γ∞", »αÑªñÑ τÑ¼ óδ πß»ÑÑΓÑ Ñú« »α«τÑßΓ∞. Åα«µÑñπαá ZEROREQ αÑΦáÑΓ φΓπ »α«í½Ñ¼π, »α«ßΓ« «τ¿Θá∩ íπΣÑα ¬½áó¿áΓπαδ »ÑαÑñ ΓÑ¼, ¬á¬ »α«úαá¼¼á ñ«½ª¡á ßñÑ½áΓ∞ »áπºπ. é Åáß¬á½∞-»α«úαá¼¼áσ óδ ß¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαδ ZEROKEY ¿ WAIT ó úαáΣ¿τÑß¬¿σ αÑª¿¼áσ. é ß««ΓóÑΓßΓóπεΘ¿σ ¬«¼á¡ñáσ »αÑñδñπΘ¿σ óÑαß¿⌐ φΓ« ¡Ñó«º¼«ª¡«. æ½ÑñπεΘá∩ »α«µÑñπαá, P() »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α¿¼Ñα »ÑαÑ¿¼Ñ¡«óá¡¿∩ ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ. îδ »ÑαÑ¿¼Ñ¡πÑ¼ ßΓá¡ñáαΓ¡πε ¬«¼á¡ñπ Åáß¬á½∩ Writeln(). ì«óá∩ »α«µÑñπαá ß«σαá¡¿Γ óßÑ Σπ¡¬µ¿«¡á½∞¡δÑ ßó«⌐ßΓóá «α¿ú¿¡á½á. àß½¿ óδ σ«Γ¿ΓÑ, Γ« ¼«ªÑΓÑ Γá¬¿¼ «íαáº«¼ »ÑαÑ¿¼Ñ¡«óáΓ∞ ½εíδÑ ñαπú¿Ñ ¬«¼á¡ñδ Åáß¬á½∩, ¡á»α¿¼Ñα, τΓ«íδ ßñÑ½áΓ∞ ¿σ ¡áºóá¡¿Ñ ¬«α«τÑ. Procedure P(str : string); begin Writeln(str); end; Åα«µÑñπαá WAIT(...) ¿ß»«½∞ºπÑΓ ¡«óπε ¬«¼á¡ñπ ZEROKEY. Ä¡á «τ¿ΘáÑΓ »α¿ »«¼«Θ¿ ZEROKEY íπΣÑα ¬½áó¿áΓπαδ, á ºáΓÑ¼ ºáßΓáó½∩ÑΓ ¬«¼»∞εΓÑα «ª¿ñáΓ∞ ß½ÑñπεΘÑÑ ¡áªáΓ¿Ñ ¬½áó¿Φ¿. ¥Γ« ñáÑΓ φΣΣÑ¬Γ, ¬á¬ Ñß½¿ íδ »«ßΓαá¡¿τ¡δ⌐ ß¬α«½¿¡ú ΓÑ¬ßΓá íδ½ óßΓα«Ñ¡ ó óáΦπ »α«úαá¼¼π. procedure Wait; { Äτ¿ΘáÑΓ íπΣÑα ¬½áó¿áΓπαδ ¿ } begin { «ª¿ñáÑΓ óó«ñ ¡«ó«ú« ¡áªáΓ¿∩ ¬½áó¿Φ¿ } ZeroKey; { ¥Γá »α«µÑñπαá «í∩ºáΓÑ½∞¡á } repeat until keypressed; end; é ¡áΦ Åáß¬á½∞-¼«ñπ½∞ Γá¬ªÑ ó¬½ετÑ¡δ Γα¿ ñ«»«½¡¿ΓÑ½∞¡δÑ »α«µÑñπαδ ñ½∩ »ÑτáΓ¿ ¼¿¡¿-ΓÑ¬ßΓá. Åα«µÑñπαá MINIPRINT(VGA), MINITEXT(VGA) ¿ GLASPRINT(VGA). ¥Γ¿ »α«úαá¼¼δ á¡á½«ú¿τ¡δ »α«úαá¼¼á¼, »αÑñ¡áº¡áτÑ¡¡δ¼ ñ½∩ αáí«Γδ ó ó¿ñÑ«-αÑª¿¼Ñ 13 (ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ 0D). ó ¡¿σ ßñÑ½á¡δ ß««ΓóÑΓßΓóπεΘ¿Ñ ¿º¼Ñ¡Ñ¡¿∩, »«ºó«½∩εΘ¿Ñ ¿ß»«½∞º«óá¡¿Ñ ¼¿¡¿-ΓÑ¬ßΓá ó αÑª¿¼Ñ 19. Å«ñα«í¡«ßΓ¿ ß¼. ó ú½áóÑ 5. 6.10 Åα∩¼«⌐ ºá»πß¬ »α«úαá¼¼ ¿º DOS ----------------------------------------------------------------- æ¬«¼»¿½¿α«óá¡¡δ⌐ ¼«ñπ½∞ Turbo Pascal ß ßπΣΣ¿¬ß«¼ .TPU ¡Ñ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡ ó¡Ñ Åáß¬á½∩. Äñ¡á¬«, óδ ¼«ªÑΓÑ ß¬«¼»¿½¿α«óáΓ∞ »α«úαá¼¼δ Γá¬¿¼ «íαáº«¼, τΓ«íδ ¿σ ¼«ª¡« íδ½« ¡Ñ»«ßαÑñßΓóÑ¡¡« ºá»πßΓ¿Γ∞ ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ DOS, ¡Ñºáó¿ß¿¼« «Γ Åáß¬á½∩. æ¬«¼»¿½¿α«óá¡¡á∩ ¿ ß«σαá¡Ñ¡¡á∩ Γá¬¿¼ «íαáº«¼ »α«úαá¼¼á ¿¼ÑÑΓ αáßΦ¿αÑ¡¿Ñ .EXE, τΓ« «º¡áτáÑΓ "¿ß»«½¡∩Ñ¼δ⌐ Σá⌐½". é Åáß¬á½Ñ, ¡Ñºáó¿ß¿¼« «Γ ñ½¿¡δ »α«úαá¼¼δ, óδ ¼«ªÑΓÑ ß«ºñáóáΓ∞ φΣΣÑ¬Γ¿ó¡δÑ ¬«¼á¡ñδ, ¬«Γ«αδÑ ¼«ª¡« óδ»«½¡¿Γ∞ »α∩¼« ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ DOS. è«¼á¡ñδ, ß«ºñá¡¡δÑ ¿ ¿ß»«½∞ºπÑ¼δÑ Γá¬¿¼ «íαáº«¼, ßΓá¡«ó∩Γß∩ »αá¬Γ¿τÑß¬¿ αáßΦ¿αÑ¡¿∩¼¿ ßΓá¡ñáαΓ¡«ú« ¡áí«αá »α«úαá¼¼ DOS. ¥Γ« «º¡áτáÑΓ, τΓ« »α«µÑñπαδ, αáßß¼«ΓαÑ¡¡δÑ ó φΓ«⌐ ú½áóÑ, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¿ ó ¬áτÑßΓóÑ ¬«¼á¡ñ DOS. é ß½ÑñπεΘÑ¼ αáºñÑ½Ñ »α¿ó«ñ¿Γß∩ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó Γ«ú«, τΓ« óδ ¼«ªÑΓÑ ΓÑ»Ñα∞ ¿ τΓ« óá¼ íδ½« ¡Ññ«ßΓπ»¡« ó ßΓáα«⌐ ¬«¼á¡ñÑ DOS MODE. ìáí«α ¬«¼á¡ñ - αáßΦ¿αÑ¡¿⌐ DOS, ó¬½ετÑ¡¡δ⌐ ó ñá¡¡πε ¬¡¿úπ, ß«ñÑαª¿Γ φΓ¿ »α«úαá¼¼δ ó ó¿ñÑ ¬«¼á¡ñ CGAPALETTE, EGAPALETTE ¿ VGAPALETTE. 6.10.1 Åα¿¼Ñα ¡«ó«⌐ ¬«¼á¡ñδ DOS (»α«úαá¼¼á EGAPALETT) ----------------------------------------------------------------- Å«ß½Ñ ¬«¼»¿½∩µ¿¿ ß½ÑñπεΘá∩ »α«úαá¼¼á ßΓá¡ÑΓ ¡Ñ Γ«½∞¬« ¡«ó«⌐ ñÑ¼«¡ßΓαáµ¿Ñ⌐ ΓÑ¬ßΓ«ó«ú« αÑª¿¼á, ¡« ¿ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ ¡«ó«⌐ ¬«¼á¡ñδ DOS. êß»«½¡∩Ñ¼δ⌐ Σá⌐½ ñ«½ªÑ¡ ¡áσ«ñ¿Γ∞ß∩ ¡á ¼áαΦαπΓÑ, ñ«ßΓπ»¡«¼ DOS, ¿ ó ½εí«⌐ ¼«¼Ñ¡Γ ¼«ªÑΓ íδΓ∞ ºá»πΘÑ¡ ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿. æ½ÑñπεΘ¿⌐ ½¿ßΓ¿¡ú - φΓ« ½¿ßΓ¿¡ú «ñ¡«⌐ ¿º »α«úαá¼¼, »«ßΓáó½∩Ñ¼δσ ß ñá¡¡«⌐ ¬¡¿ú«⌐, ¿ ñ½∩ ¡Ñú« ¡Ñ ΓαÑíπεΓß∩ ¡¿¬á¬¿Ñ ñαπú¿Ñ »α«úαá¼¼δ ¿½¿ ¼«ñπ½¿ ¿º ¡áΦÑú« ¬«¼»½Ñ¬Γá »α«úαá¼¼¡«ú« «íÑß»ÑτÑ¡¿∩. program EGAPALET; uses crt,dos; { êß»«½∞ºπÑΓ Γ«½∞¬« ßΓá¡ñáαΓ¡δÑ ¼«ñπ½¿ } type VGARegPack = record AL,AH : Integer; end; var ColorNumber,Blue,Green,Red : Byte; x,y,Modd : integer; procedure MODE(Input: Integer); var VGARegs : Registers; begin with VGARegs do begin { »«ñú«Γ«ó¬á αÑú¿ßΓα«ó ¬ »αÑαδóá¡¿ε } AL := Input; { óó«ñ »ÑαÑ¼Ñ¡¡«⌐ ñ½∩ ó¿ñÑ«-αÑª¿¼á } AH := $00; { Σπ¡¬µ¿∩: πßΓá¡«ó¬á ó¿ñÑ«-αÑª¿¼á } end; Intr($10,VGARegs); { óδº«ó »αÑαδóá¡¿∩ $10 } end; procedure FrameColor(ColorNumber:Byte); var Regs : Registers; begin with Regs do begin { »«ñú«Γ«ó¬á αÑú¿ßΓα«ó ¬ »αÑαδóá¡¿ε } AL := $01; { πßΓá¡«ó¬á αÑú¿ßΓαá αá¼¬¿ } AH := $10; BH := ColorNumber; { ûóÑΓ αá¼¬¿ } end; Intr($10,Regs); { óδº«ó »αÑαδóá¡¿∩ $10 } end; procedure AssignColor(ColorNumber,Color : byte); var Regs : Registers; begin with Regs do begin { »«ñú«Γ«ó¬á αÑú¿ßΓα«ó ¬ »αÑαδóá¡¿ε } AL := $00; AH := $10; BL := ColorNumber; BH := Color; end; Intr($10,Regs); { óδº«ó »αÑαδóá¡¿∩ $10 } end; procedure Palette(ColorNumber,Blue,Green,Red : byte); var Regs : Registers; begin with Regs do begin { »«ñú«Γ«ó¬á αÑú¿ßΓα«ó ¬ »αÑαδóá¡¿ε } AL := $10; { πßΓá¡«ó¿Γ∞ αÑú¿ßΓα µóÑΓá } AH := $10; { πßΓá¡«ó¿Γ∞ αÑú¿ßΓα »á½¿Γαδ } BX :=ColorNumber; { »Ñαóδ⌐ πßΓá¡áó½¿óáÑ¼δ⌐ αÑú¿ßΓα µóÑΓá } CL := Blue; { º¡áτÑ¡¿Ñ ú«½πí«ú« } CH := Green; { º¡áτÑ¡¿Ñ ºÑ½Ñ¡«ú« } DH := Red; { º¡áτÑ¡¿Ñ ¬αáß¡«ú« } end; Intr($10,Regs); { óδº«ó »αÑαδóá¡¿∩ $10 } end; procedure Blend(ColrNr1,Blue1,Green1,Red1, ColrNr2,Blue2,Green2,Red2: Byte); var Nr,Bl,Gr,Rd: byte; begin Nr:= ColrNr2 - ColrNr1; for x :=0 to Nr do begin Bl:= (Blue1*(nr-x) + Blue2*(x)) div nr; Gr:= (Green1*(nr-x)+ Green2*(x))div nr; Rd:= (Red1*(nr-x) + Red2*(x)) div nr; Palette(ColrNr1+x,Bl,Gr,Rd); end; end; begin { ¡áτá½« ú½áó¡«⌐ »α«úαá¼¼δ } Mode($11); { αÑª¿¼ 17 ßíαáßδóáÑΓ óßÑ αÑú¿ßΓαδ } Mode($3); { -> ΓαÑΓ∞∩ ßΓα«¬á ú½áó¡«⌐ »α«úαá¼¼δ } directvideo:=false; { ¡áßΓα«⌐¬á »á½¿Γαδ } palette(0,8,6,2) ; { τÑα¡δ⌐ } palette(1,33,17,15) ; { ú«½πí«⌐ } palette(2,27,35,20) ; { ºÑ½Ñ¡δ⌐ } palette(3,25,25,15) ; { ß¿¡¿⌐ } palette(4,17,19,33) ; { ¬αáß¡δ⌐ } palette(5,24,20,30) ; { Σπ¬ß¿¡ } palette(6,12,17,27) ; { ¬«α¿τ¡Ñóδ⌐ } palette(7,31,33,35) ; { ßóÑΓ½«-ßÑαδ⌐ } palette(8,22,19,17) ; { ΓÑ¼¡«-ßÑαδ⌐ } palette(9,50,35,29) ; { ßóÑΓ½«-ú«½πí«⌐ } palette(10,50,45,20); { ßóÑΓ½δ⌐ ß¿¡¿⌐ } palette(11,26,50,34); { ßóÑΓ½«-ºÑ½Ñ¡δ⌐ } palette(12,25,47,60); { ßóÑΓ½«-¬αáß¡δ⌐ } palette(13,47,55,62); { ßóÑΓ½δ⌐ Σπ¬ß¿¡ } palette(14,33,56,60); { ªÑ½Γδ⌐ } palette(15,57,53,53); { íÑ½δ⌐ } palette(16,7,4,12); { Σ«¡: µóÑΓ ¬αáß¡«ú« ó¿¡á } for x:= 0 to 15 do AssignColor(x,x); textbackground(1); textcolor( 0);writeln(' τÑα¡δ⌐ '); textbackground(0); textcolor( 1);writeln(' ú«½πí«⌐ '); textcolor( 2);writeln(' ºÑ½Ñ¡δ⌐ '); textcolor( 3);writeln(' ß¿¡¿⌐ '); textcolor( 4);writeln(' ¬αáß¡δ⌐ '); textcolor( 5);writeln(' Σπ¬ß¿¡ '); textcolor( 6);writeln(' ¬«α¿τ¡Ñóδ⌐ '); textcolor( 7);writeln(' ßóÑΓ½«-ßÑαδ⌐ '); textcolor( 8);writeln(' ΓÑ¼¡«-ßÑαδ⌐ '); textcolor( 9);writeln(' ßóÑΓ½«-ú«½πí«⌐ '); textcolor(10);writeln(' ßóÑΓ½δ⌐ ß¿¡¿⌐ '); textcolor(11);writeln(' ßóÑΓ½«-ºÑ½Ñ¡δ⌐ '); textcolor(12);writeln(' ßóÑΓ½«-¬αáß¡δ⌐ '); textcolor(13);writeln(' ßóÑΓ½δ⌐ Σπ¬ß¿¡ '); textcolor(14);writeln(' ªÑ½Γδ⌐ '); textcolor(15);writeln(' íÑ½δ⌐ '); FrameColor(16); end. ìÑß¬«½∞¬« ¼«ñ¿Σ¿µ¿α«óáó φΓπ »α«úαá¼¼π, ¼δ ¼«ªÑ¼ ß«ºñáΓ∞ »α«µÑñπαπ CGAPALET. ä½∩ φΓ«ú« ñ«ßΓáΓ«τ¡« ºá¼Ñ¡¿Γ∞ ΓαÑΓ∞ε ßΓα«¬π ú½áó¡«⌐ »α«úαá¼¼δ ¡á Mode(1). é ñαπú«⌐ ¼«ñ¿Σ¿¬áµ¿¿ ¼δ ¼«ªÑ¼ »«½πτ¿Γ∞ »α«úαá¼¼π VGAPALET. çñÑß∞ ΓαÑΓ∞∩ ßΓα«¬á ú½áó¡«⌐ »α«úαá¼¼δ »α¿¼ÑΓ ó¿ñ Modd:=-1;textmode(Modd);. ¥Γ« ñáßΓ ¡á¼ ñ«ßΓπ» ¬ 50-ßΓα«τ¡«¼π ΓÑ¬ßΓ«ó«¼π αÑª¿¼π VGA. Å«ß½Ñ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼á VGAPALET.EXE íπñÑΓ αáí«ΓáΓ∞ ó φΓ«¼ αÑª¿¼Ñ. Éáºπ¼ÑÑΓß∩, óßÑ ΓαÑí«óá¡¿∩ ¬ á»»áαáΓ¡«¼π «íÑß»ÑτÑ¡¿ε «ßΓáεΓß∩ ó ß¿½Ñ. üÑº »½áΓδ VGA ¿ ß«ó¼ÑßΓ¿¼«ú« á¡á½«ú«ó«ú« ¼«¡¿Γ«αá ß ¬áíÑ½Ñ¼ »α«úαá¼¼á ¡Ñ »«⌐ñÑΓ. é«º¼«ª¡«ßΓ¿ αáßΦ¿αÑ¡¿∩ DOS Γá¬¿¼¿ ß»«ß«íá¼¿ »αá¬Γ¿τÑß¬¿ ¡Ñ «úαá¡¿τÑ¡δ. ä«»«½¡¿ΓÑ½∞¡πε ¿¡Σ«α¼áµ¿ε « ß«ºñá¡¿¿ óáΦ¿σ ß«íßΓóÑ¡¡δσ ¬«¼á¡ñ-αáßΦ¿αÑ¡¿⌐ DOS ß¼. ó â½áóÑ 4. 6.11 ä«»«½¡¿ΓÑ½∞¡δÑ »α¿¼Ñαδ »α«úαá¼¼ ----------------------------------------------------------------- é ñá¡¡«¼ αáºñÑ½Ñ αáßß¼áΓα¿óáεΓß∩ ¡Ñ¬«Γ«αδÑ ¿ñÑ¿ ¡á »α¿¼ÑαÑ »α«úαá¼¼ ¡á Turbo Pascal, ¬«Γ«αδÑ ¡Ñ íδ½¿ ó¬½ετÑ¡δ ó ¼«ñπ½∞ VGA19. Ä»¿ßδóáÑ¼δÑ úαáΣ¿τÑß¬¿Ñ φΣΣÑ¬Γδ ½πτΦÑ αáí«ΓáεΓ, íπñπτ¿ αÑá½¿º«óá¡¡δ¼¿ ó ó¿ñÑ «ΓñÑ½∞¡δσ »α«úαá¼¼, »«ß¬«½∞¬π αáºí¿Γ∞ ¿σ ¡á ßá¼«ñ«ßΓáΓ«τ¡δÑ úαáΣ¿τÑß¬¿Ñ ¬«¼á¡ñδ íδ½« íδ ºáΓαπñ¡¿ΓÑ½∞¡«. Åα«úαá¼¼δ ñ½∩ αáßΦ¿αÑ¡¿∩ ¿ »ÑαÑ¼ÑΘÑ¡¿∩ τáßΓ¿ φ¬αá¡á ¼«ª¡« ºáΓÑ¼ »ÑαÑαáí«ΓáΓ∞ ó «ΓñÑ½∞¡δÑ úαáΣ¿τÑß¬¿Ñ ¬«¼á¡ñδ. Åα«úαá¼¼á AURORA.PAS, ¿º«íαáªáεΘá∩ ó«ßσ«ñ ß«½¡µá, ñá½á ¿ñÑε ß«ºñá¡¿∩ ¿úαδ. ìá íáºÑ φΓ«⌐ ¿ñÑ¿ ¿ íδ½á αáºαáí«Γá¡á ¿úαá TERRAX.PAS, »αÑñßΓáó½Ñ¡¡á∩ ó â½áóÑ 10. 6.11.1 ÉáßΦ¿αÑ¡¿Ñ τáßΓ¿ φ¬αá¡á (Zoom - "ìáÑºñ") ----------------------------------------------------------------- äá¡¡á∩ »α«úαá¼¼á íÑαÑΓ ßαÑñ¡εε τáßΓ∞ φ¬αá¡á ¿ αáßΦ¿α∩ÑΓ ÑÑ Γá¬¿¼ «íαáº«¼, τΓ«íδ «¡á ºá¡¿¼á½á óÑß∞ φ¬αá¡. ¥Γ« óδ»«½¡∩ÑΓß∩ »α¿ »«¼«Θ¿ ß»Ñµ¿á½∞¡«⌐ »α«µÑñπαδ, »«ßΓα«Ñ¡¡«⌐ ¡á íáºÑ αá¡ÑÑ «»αÑñÑ½Ñ¡¡δσ »α«µÑñπα PEEK ¿ PLOT. ¥¬αá¡ πñóá¿óáÑΓß∩ »« αáº¼Ñαπ ó ¡á»αáó½Ñ¡¿¿ «Γ ¬αáÑó ¬ ßÑαÑñ¿¡Ñ. ûóÑΓá τÑΓóÑαΓ«⌐ τáßΓ¿ »«óÑασ¡«ßΓ¿ ßτ¿ΓδóáεΓß∩ ¬«¼á¡ñ«⌐ PEEK. çáΓÑ¼ óÑß∞ φ¬αá¡ »ÑαÑα¿ß«óδóáÑΓß∩ »α¿ »«¼«Θ¿ τÑΓδαÑσ ¬«¼á¡ñ PLOT ¡á ¬áªñπε ¬«¼á¡ñπ PEEK. ¥Γá »α«µÑñπαá Σá¬Γ¿τÑß¬«ú« πñá½Ñ¡¿∩ »¿¬ßÑ½Ñ⌐ ¡Ñ óδ»«½¡∩ÑΓ, »«ß¬«½∞¬π »α«¿ßσ«ñ¿Γ »ÑαÑα¿ß«ó¬á óßÑú« φ¬αá¡á. Åα¿ ¼«ñ¿Σ¿¬áµ¿¿ ñá¡¡«⌐ »α«µÑñπαδ íÑº óδ»«½¡Ñ¡¿∩ π¬áºá¡¡δσ »αáó¿½ ß½ÑñπÑΓ íδΓ∞ «ßΓ«α«ª¡δ¼, ¬«úñá ñÑ½« ¬áßáÑΓß∩ »¿¬ßÑ½Ñ⌐, ¬«Γ«αδÑ ¡Ñ ñ«½ª¡δ íδΓ∞ ºá¼Ñ¡Ñ¡δ. Ä¡¿ ½¿í« ñ«½ª¡δ íδΓ∞ πñá½Ñ¡δ, ½¿í«, τΓ« ú«αáºñ« ½πτΦÑ, »αÑ«íαáº«óá¡δ ó τΓ«-½¿í« ñαπú«Ñ, τΓ« íπñÑΓ ß««ΓóÑΓßΓó«óáΓ∞ ¬áαΓ¿¡¬Ñ. öá¬Γ¿τÑß¬¿ πñá½Ñ¡¿Ñ Γ«τ¬¿ ¡Ñ ¿¼ÑÑΓ í«½∞Φ«ú« º¡áτÑ¡¿∩ »α¿ αáí«ΓÑ ß »á½¿Γα«⌐ VGA. ôñá½Ñ¡¿Ñ »¿¬ßÑ½∩ «íδτ¡« «º¡áτáÑΓ ºá¼Ñ¡π Ñú« µóÑΓ«¼ ¡«¼Ñα 0. ìá ßΓá¡ñáαΓ¡«⌐ »á½¿ΓαÑ φΓ« «íδτ¡« τÑα¡δ⌐ µóÑΓ. Äñ¡á¬« ó ¬áτÑßΓóÑ µóÑΓá ¡«¼Ñα 0 ¼«ªÑΓ íδΓ∞ ºáñá¡ ½εí«⌐ µóÑΓ VGA. ïπτΦÑ ñπ¼áΓ∞ «í "πñá½Ñ¡¿¿" »¿¬ßÑ½∩ ¬á¬ « ß»«ß«íÑ ßú½áª¿óá¡¿¿ Ñú« «Γ¡«ß¿ΓÑ½∞¡« «¬απªáεΘÑú« πτáßΓ¬á. ì¿ªÑ »α¿ó«ñ¿Γß∩ »α«µÑñπαá DOUBLE. éá¼ íπñπΓ »α«ñÑ¼«¡ßΓα¿α«óá¡δ ñóÑ óÑαß¿¿ φΓ«⌐ »α«úαá¼¼δ. program ZOOM; { ¬«»¿απÑΓ ¿ πóÑ½¿τ¿óáÑΓ τáßΓ∞ φ¬αá¡á } uses crt,dos,vga19; var xx,yy,zz,aa,bb : Integer; procedure DOUBLE; { »«ñ»α«úαá¼¼á } var x,y,xz,yz,Color : integer; begin for x:=79 to 159 do begin for y:=49 to 99 do begin Peek (x,y,Color); xz:=x-159;xz:=xz*2+158; yz:=y-99 ;yz:=yz*2+98; Plot (xz,yz,Color); Plot(xz+1,yz,Color); Plot(xz,yz+1,Color);Plot(xz+1,yz+1,Color); Peek (319-x,y,Color); xz:=319-x-159;xz:=xz*2+158; yz:=y-99 ;yz:=yz*2+98; Plot (xz,yz,Color); Plot(xz+1,yz,Color); Plot(xz,yz+1,Color);Plot(xz+1,yz+1,Color); Peek (x,199-y,Color); xz:=x-159;xz:=xz*2+158; yz:=199-y-99 ;yz:=yz*2+98; Plot (xz,yz,Color); Plot(xz+1,yz,Color); Plot(xz,yz+1,Color);Plot(xz+1,yz+1,Color); Peek (319-x,199-y,Color); xz:=319-x-159;xz:=xz*2+158; yz:=199-y-99 ;yz:=yz*2+98; Plot (xz,yz,Color); Plot(xz+1,yz,Color); Plot(xz,yz+1,Color);Plot(xz+1,yz+1,Color); end;end; { ¬«¡Ñµ »«ñ»α«úαá¼¼δ } end; begin { ú½áó¡á∩ »α«úαá¼¼á } directvideo:=false; Mode($13); randomize; Janspalette; Palette(0,14,30,35);Listpalette; for xx:=0 to 25 do begin zz:=random(30)+160-random(30);yy:=random(40)+80; aa:=random(17);bb:=random(aa)+1; Disk(zz,yy,aa,bb,random(255)); SmoothCircle(zz,yy,aa,bb); end; Double; Double; Double; end. æ½ÑñπεΘá∩ »α«úαá¼¼á, BIGGER, »αÑñßΓáó½∩ÑΓ ß«í«⌐ ñαπú«⌐ ß»«ß«í αÑá½¿ºáµ¿¿ ¡áÑºñá ¡á τáßΓ∞ φ¬αá¡á. ìá φΓ«Γ αáº ¿ß»«½∞ºπÑΓß∩ ¼ÑΓ«ñ "αáßΓÑα¿ºáµ¿¿". îδ ¡Ñ íπñÑ¼ ß«ºñáóáΓ∞ τÑΓδαÑ »¿¬ßÑ½∩ ñ½∩ ¬áªñ«ú« »¿¬ßÑ½∩ ¿ßσ«ñ¡«ú« ¿º«íαáªÑ¡¿∩. çñÑß∞ ¬áαΓ¿¡¬á πóÑ½¿τ¿óáÑΓß∩ »«ßαÑñßΓó«¼ »«¼ÑΘÑ¡¿∩ ó«¬απú ¬áªñ«ú« ¿ßσ«ñ¡«ú« »¿¬ßÑ½∩ τÑΓδαÑσ τÑα¡δσ »¿¬ßÑ½Ñ⌐ (Σá¬Γ¿τÑß¬¿ φΓ« »¿¬ßÑ½¿ ß µóÑΓ«¼ 0 ¿º ΓÑ¬πΘÑ⌐ »á½¿Γαδ). Program BIGGER; Uses crt,dos,vga19; Var ch : char; Procedure Starpalette; { 256 µóÑΓ«ó ºóÑºñδ } begin Palette(0,9,3,3); Blend(1,6,1,12, 15,10,13,27); { ¬αáß¡δÑ ¬áα½¿¬¿ } Blend(15,10,13,27,30,10,21,33); { «αá¡ªÑóδÑ ºóÑºñδ } Blend(30,10,21,33,40,18,32,36); { ªÑ½ΓδÑ ºóÑºñδ } Blend(40,18,32,36,50,22,40,36); { ªÑ½Γ«-íÑ½δÑ ºóÑºñδ } Blend(50,22,40,36,180,58,45,43); { ºÑ½Ñ¡δÑ »½á¡ÑΓδ } Blend(180,58,45,43,255,63,45,63); { ú«½πíδÑ »½á¡ÑΓδ } DimPercent(0,255,10); end; procedure DoubleDouble; { πóÑ½¿τ¿óáÑΓ µÑ¡Γα φ¬αá¡á } var x,y,xz,yz,Color : integer; { ó αÑª¿¼Ñ 19 } begin for x:=79 to 159 do begin { úαá¡¿µδ µÑ¡Γαá x/y } for y:=49 to 99 do begin Peek (x,y,Color); { óÑασ¡¿⌐ ½Ñóδ⌐ ¬óáñαá¡Γ } xz:=x-159;xz:=xz*2+158; { πóÑ½¿τ¿Γ∞ x } yz:=y-99 ;yz:=yz*2+98; { πóÑ½¿τ¿Γ∞ y } Plot (xz,yz,Color); { ¡áα¿ß«óáΓ∞/«τ¿ßΓ¿Γ∞ Γ«τ¬¿ } Plot(xz+1,yz,0);Plot(xz,yz+1,0);Plot(xz+1,yz+1,0); Peek (319-x,y,Color); { óÑασ¡¿⌐ »αáóδ⌐ ¬óáñαá¡Γ } xz:=319-x-159;xz:=xz*2+158; { πóÑ½¿τ¿Γ∞ x } yz:=y-99 ;yz:=yz*2+98; { πóÑ½¿τ¿Γ∞ y } Plot (xz,yz,Color); { ¡áα¿ß«óáΓ∞/«τ¿ßΓ¿Γ∞ Γ«τ¬¿ } Plot(xz+1,yz,0);Plot(xz,yz+1,0);Plot(xz+1,yz+1,0); Peek (x,199-y,Color); { ¡¿ª¡¿⌐ ½Ñóδ⌐ ¬óáñαá¡Γ } xz:=x-159;xz:=xz*2+158; { πóÑ½¿τ¿Γ∞ x } yz:=199-y-99 ;yz:=yz*2+98; { πóÑ½¿τ¿Γ∞ y } Plot (xz,yz,Color); { ¡áα¿ß«óáΓ∞/«τ¿ßΓ¿Γ∞ Γ«τ¬¿ } Plot(xz+1,yz,0);Plot(xz,yz+1,0);Plot(xz+1,yz+1,0); Peek (319-x,199-y,Color); { ¡¿ª¡¿⌐ »αáóδ⌐ ¬óáñαá¡Γ } xz:=319-x-159;xz:=xz*2+158; { πóÑ½¿τ¿Γ∞ x } yz:=199-y-99 ;yz:=yz*2+98; { πóÑ½¿τ¿Γ∞ y } Plot (xz,yz,Color); { ¡áα¿ß«óáΓ∞/«τ¿ßΓ¿Γ∞ Γ«τ¬¿ } Plot(xz+1,yz,0);Plot(xz,yz+1,0);Plot(xz+1,yz+1,0); end; end; end; begin { ¡áτá½« ú½áó¡«⌐ »α«úαá¼¼δ } Mode($13);Starpalette; palette(127,63,45,63); directvideo:=false; repeat gotoxy(1,11); ColorText(127);write( 'ôñó«Ñ¡¿Ñ φ¬αá¡á' ); DoubleDouble; { ßαÑñ¡∩∩ τáßΓ∞ φ¬αá¡á πóÑ½¿τ¿óáÑΓß∩, ¼«ñÑ½¿απ∩ »«½ÑΓ } gotoxy(1,12);ColorText( 8);write( 'Do ' ); ColorText(11);write('óδ');ColorText(14);write( ' º¡á'); ColorText(16);write('ÑΓÑ ');ColorText(18);write( 'ß¬' ); ColorText(20);write('«½');ColorText(22);write( '∞¬' ); ColorText(24);write('«' );ColorText(26);write( ' º' ); ColorText(28);write('óÑ' );ColorText(30);write( 'ºñ' ); ColorText(32);write(' ¡' );ColorText(34);write( 'á' ); ColorText(36);write(' ¡Ñ');ColorText(38);write( ' íÑ' ); ColorText(48);write('?' ); for Z:=0 to 3000 do begin X:=random(320);Y:=random(200); Color:=random(random(random(250)))+1; Plot(X,Y,Color);{ É¿ßπÑ¼ ºóÑºñπ } if keypressed then z:=3000; end; until keypressed; end. 6.11.2 ô¼Ñ¡∞ΦÑ¡¿Ñ τáßΓ¿ φ¬αá¡á ("ÄΓΩÑºñ") ----------------------------------------------------------------- æ½ÑñπεΘá∩ »α«úαá¼¼á ñÑ¼«¡ßΓα¿απÑΓ, ¬á¬ ¼«ª¡« π¼Ñ¡∞Φ¿Γ∞ τáßΓ∞ φ¬αá¡á. é ñá¡¡«¼ ß½πτáÑ π¼Ñ¡∞ΦÑ¡¡á∩ τáßΓ∞ φ¬αá¡á ß«ßΓ«¿Γ ¿º τÑΓδαÑσ Γ«τÑ¬ ¿ßσ«ñ¡«ú« φ¬αá¡á. ä«íáó½Ñ¡¿Ñ µóÑΓ«ó ¿º τÑΓδαÑσ ¿ßσ«ñ¡δσ Γ«τÑ¬ ¿ αáß»«½«ªÑ¡¿Ñ ß«ó¼ÑßΓ¿¼«ú« ß ¡¿¼¿ πßαÑñ¡Ñ¡¡«ú« µóÑΓá óδ»«½¡∩ÑΓß∩ »α«µÑñπα«⌐ REFERENCECOLOR ¿º ¼«ñπ½∩ Pascal VGA19. Å«ñα«í¡«Ñ ÑÑ «»¿ßá¡¿Ñ ß¼. ó ÉáºñÑ½Ñ 6.6.6. Å«ß¬«½∞¬π »α«úαá¼¼á πßαÑñ¡∩ÑΓ µóÑΓ τÑΓδαÑσ »¿¬ßÑ½Ñ⌐, «íΩÑñ¿¡∩∩ ¿σ ó «ñ¿¡ πßαÑñ¡Ñ¡¡δ⌐, τáßΓ∞ ¬áαΓ¿¡¬¿ ó π¼Ñ¡∞ΦÑ¡¡«¼ óáα¿á¡ΓÑ íπñÑΓ πΓÑα∩¡á. àß½¿ αÑá½¿º«óáΓ∞ φΓπ »α«úαá¼¼π ¼ÑΓ«ñ«¼ πñá½Ñ¡¿∩ »¿¬ßÑ½Ñ⌐, á ¡Ñ ¿σ πßαÑñ¡Ñ¡¿∩, Γ« »«ΓÑα¿ íπñπΓ ÑΘÑ º¡áτ¿ΓÑ½∞¡ÑÑ. program REDUCE; uses crt,dos,vga19; { ºáú«½«ó«¬ »α«úαá¼¼δ, »«ñ¬½ετÑ¡¿Ñ ¼«ñπ½Ñ⌐ } var ch:char; procedure Half; { ¡áτá½« »«ñ»α«úαá¼¼δ } var x,y,xz,yz,Bl1,Gr1,Re1,Bl2,Gr2,Re2,Bl3,Gr3,Re3,Bl4,Gr4,Re4, Rp,Blue,Green,Red,Color : integer; begin { ¡áτá½« ú½áó¡«ú« ΓÑ½á »«ñ»α«úαá¼¼δ } for y:=50 to 99 do begin for x:=80 to 159 do begin xz:=x-159;xz:=xz*2+158; yz:=y-99 ;yz:=yz*2+98; peeklist(xz,yz ,Bl1,Gr1,Re1); peeklist(xz+1,yz ,Bl2,Gr2,Re2); peeklist(xz,yz+1 ,Bl3,Gr3,Re3); peeklist(xz+1,yz+1,Bl4,Gr4,Re4); Blue:=(Bl1+Bl2+Bl3+Bl4)div 4; Green:=(Gr1+Gr2+Gr3+Gr4)div 4; Red:=(Re1+Re2+Re3+Re4)div 4; ReferenceColor(Rp,Color,Blue,Green,Red); plot (x,y,Color); xz:=319-x-159;xz:=xz*2+158; yz:=y-99 ;yz:=yz*2+98; peeklist(xz,yz ,Bl1,Gr1,Re1); peeklist(xz+1,yz ,Bl2,Gr2,Re2); peeklist(xz,yz+1 ,Bl3,Gr3,Re3); peeklist(xz+1,yz+1,Bl4,Gr4,Re4); Blue:=(Bl1+Bl2+Bl3+Bl4)div 4; Green:=(Gr1+Gr2+Gr3+Gr4)div 4; Red:=(Re1+Re2+Re3+Re4)div 4; ReferenceColor(Rp,Color,Blue,Green,Red); plot (319-x,y,Color); xz:=x-159;xz:=xz*2+158; yz:=199-y-99 ;yz:=yz*2+98; peeklist(xz,yz ,Bl1,Gr1,Re1); peeklist(xz+1,yz ,Bl2,Gr2,Re2); peeklist(xz,yz+1 ,Bl3,Gr3,Re3); peeklist(xz+1,yz+1,Bl4,Gr4,Re4); Blue:=(Bl1+Bl2+Bl3+Bl4)div 4; Green:=(Gr1+Gr2+Gr3+Gr4)div 4; Red:=(Re1+Re2+Re3+Re4)div 4; ReferenceColor(Rp,Color,Blue,Green,Red); plot (x,199-y,Color); xz:=319-x-159;xz:=xz*2+158; yz:=199-y-99 ;yz:=yz*2+98; peeklist(xz,yz ,Bl1,Gr1,Re1); peeklist(xz+1,yz ,Bl2,Gr2,Re2); peeklist(xz,yz+1 ,Bl3,Gr3,Re3); peeklist(xz+1,yz+1,Bl4,Gr4,Re4); Blue:=(Bl1+Bl2+Bl3+Bl4)div 4; Green:=(Gr1+Gr2+Gr3+Gr4)div 4; Red:=(Re1+Re2+Re3+Re4)div 4; ReferenceColor(Rp,Color,Blue,Green,Red); plot (319-x,199-y,Color); end; end; end; { ¬«¡Ñµ »α«µÑñπαδ } begin { ú½áó¡á∩ »α«úαá¼¼á } directvideo:=false; Mode($13); Randomize; Janspalette; Listpalette; for x:=0 to 100 do begin disk(random(320),random(200),random(50),random(40),Random(255)); end; ColorText(96); writeln('A B C D E F G H I J K L M N O P Q R S T '); writeln(' U V W X Y Z 1 2 3 4 5 6 7 8 9 0 '); writeln('a b c d e f g h i j k l m n o p q r s t '); writeln(' u v w x y z !.;,:-? +( % ) * " $ '); writeln(' '); Half; Zerokey;ch:=readkey; end. 6.11.3 ÅÑαÑ¼ÑΘÑ¡¿Ñ ¿º«íαáªÑ¡¿∩ ----------------------------------------------------------------- æ½ÑñπεΘá∩ »α«úαá¼¼á, ROLLDEMO, »ÑαÑ¼ÑΘáÑΓ φ¬αá¡ »« ú«α¿º«¡Γá½¿. ä½∩ φΓ«ú« ¬áªñδ⌐ óÑαΓ¿¬á½∞¡δ⌐ ßΓ«½íÑµ »¿¬ßÑ½Ñ⌐ óαÑ¼Ñ¡¡« ß«σαá¡∩ÑΓß∩ ó »á¼∩Γ¿, á ºáΓÑ¼ »ÑαÑα¿ß«óδóáÑΓß∩ ó ¡«ó«⌐ »«º¿µ¿¿ φ¬αá¡á. éδº«ó φΓ«⌐ »«ñ»α«úαá¼¼δ 320 αáº »α¿ó«ñ¿Γ ¬ »«½¡«¼π ß¼ÑΘÑ¡¿ε ¬áαΓ¿¡¬¿ τÑαÑº φ¬αá¡. ¥Γá »α«µÑñπαá αáí«ΓáÑΓ «Γ¡«ß¿ΓÑ½∞¡« ¼Ññ½Ñ¡¡«, ¿ »«φΓ«¼π ¡Ñ ñáÑΓ φΣΣÑ¬Γá ú½áñ¬«ú« ß¬α«½¿¡úá φ¬αá¡á. program ROLLDEMO; { ß¼ÑΘÑ¡¿Ñ ß«ñÑαª¿¼«ú« φ¬αá¡á } uses crt,vga19; var x,y,z : integer; Procedure ScrollLeft; var Degrees,x,y : integer; Save: array[0..199] of integer; begin for x:=0 to 319 do begin for y:=0 to 199 do begin Peek(x,y,Save[y]); end; for y:=0 to 199 do begin if x<>319 then Peek(x+1,y,Degrees) else Peek(0,y,Degrees); Plot(x+319,y,Save[y]); Plot(x,y,Degrees); end; end; end; begin randomize; directvideo:=false; Mode($13); Janspalette; ColorText(100); ShowPalette; Listpalette; Disk(100,100,50,30,200); repeat ScrollLeft; until keypressed; end. 6.11.4 é«ßσ«ñ ß«½¡µá, »α«úαá¼¼á Aurora ----------------------------------------------------------------- äá¡¡á∩ »α«úαá¼¼á ß«ºñáÑΓ óáα¿áµ¿¿ ¬áαΓ¿¡¬¿ »α¿ »«¼«Θ¿ úÑ¡ÑαáΓ«αá ß½πτá⌐¡δσ τ¿ßÑ½ ¬«¼»∞εΓÑαá. üáº«óá∩ ¬áαΓ¿¡¬á ¿º«íαáªáÑΓ ó«ßσ«ñ ß«½¡µá ¡áñ ¼«αÑ¼. âÑ¡ÑαáΓ«α ß½πτá⌐¡δσ τ¿ßÑ½ ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß«ºñá¡¿∩ ¿º«íαáªÑ¡¿∩ «í½á¬«ó ó ¡ÑíÑ. ä½∩ φΓ«⌐ »α«úαá¼¼δ ¡πªÑ¡ ¼«ñπ½∞ VGA19.TPU/VGA19.PAS, ó ¬«Γ«α«¼ ¡áσ«ñ∩Γß∩ ¡Ñ«íσ«ñ¿¼δÑ úαáΣ¿τÑß¬¿Ñ »α«µÑñπαδ. ÅÑαóá∩ τáßΓ∞ »α«úαá¼¼δ óδó«ñ¿Γ ¡Ñ¬«Γ«αδ⌐ óó«ñ¡δ⌐ ΓÑ¬ßΓ, »«ß½Ñ τÑú« ¡áτ¿¡áÑΓß∩ óδ»«½¡Ñ¡¿Ñ ú½áó¡«ú« µ¿¬½á »α«úαá¼¼δ. é φΓ«¼ µ¿¬½Ñ º¡áτÑ¡¿∩ Φ¿α¿¡δ ¿º«íαáªÑ¡¿∩ ß«½¡µá, µóÑΓá ¡Ñíá, ó«ñδ ¿ «í½á¬«ó ¼Ñ¡∩εΓß∩ úÑ¡ÑαáΓ«α«¼ ß½πτá⌐¡δσ τ¿ßÑ½. Å«ß½Ñ πßΓá¡«ó¬¿ »«º¿µ¿¿ ½¿¡¿¿ ú«α¿º«¡Γá (Γá¬ªÑ «»αÑñÑ½∩ÑΓß∩ úÑ¡ÑαáΓ«α«¼) ¡á φ¬αá¡ ¡á¬½áñδóáεΓß∩ µóÑΓá ¡Ñíá. çáΓÑ¼ ¡á φ¬αá¡ »«¼ÑΘáÑΓß∩ ß«½¡µÑ. ê ¡á¬«¡Ñµ, ñ«íáó½∩εΓß∩ «í½á¬á. âÑ¡ÑαáΓ«α Γá¬ªÑ «»αÑñÑ½∩ÑΓ φΣΣÑ¬Γ ΓÑ¡¿ «Γ «í½á¬«ó. ¥Γ« ó½¿∩ÑΓ ¡á ºáΓÑ¼¡Ñ¡¿Ñ τáßΓ¿ ¿º«íαáªÑ¡¿∩ »«ñ «í½á¬á¼¿. ûóÑΓá «í½á¬«ó ¼«ª¡« íδ½« íδ ßú½áª¿óáΓ∞, τΓ« π½πτΦ¿½¿ íδ ¿σ ¿º«íαáªÑ¡¿Ñ, «ñ¡á¬« φΓá »«ñ»α«úαá¼¼á ¡á¼ÑαÑ¡¡« ¡Ñ íδ½á ó¬½ετÑ¡á ó »α«úαá¼¼π, τΓ«íδ ¬áαΓ¿¡¬á α¿ß«óá½áß∞ íδßΓαÑÑ. æ««ΓóÑΓßΓóπεΘ¿Ñ ¬«ñδ ¼«ª¡« ñ«íáó¿Γ∞ ó »α«úαá¼¼π »«ºªÑ. ¥Γ«Γ »α«µÑßß ºáóÑαΦáÑΓ ß«ºñá¡¿Ñ óÑασ¡Ñ⌐ τáßΓ¿ ¿º«íαáªÑ¡¿∩. çáΓÑ¼ ¡á α¿ßπ¡«¬ ñ«íáó½∩ÑΓß∩ ¼«αÑ. é«ñá α¿ßπÑΓß∩ á¡á½«ú¿τ¡« ¡Ñíπ. ü«½ÑÑ ßóÑΓ½δ¼ µóÑΓ«¼ «¡á ¿º«íαáªáÑΓß∩ í½¿ªÑ ¬ ß«½¡µπ, τΓ« ñáÑΓ φΣΣÑ¬Γ ß«½¡Ñτ¡δσ í½¿¬«ó ¡á ó«ñÑ. ê ó ¬«¡µÑ ß½ÑñπεΘá∩ ΓÑ¬ßΓ«óá∩ »α«µÑñπαá α¿ßπÑΓ ¡á φ¬αá¡Ñ »α«¿ºó«½∞¡δ¼ «íαáº«¼ úÑ¡Ñα¿απÑ¼«Ñ ¿¼∩ »½á¡ÑΓδ. â½áó¡δ⌐ µ¿¬½ »α«úαá¼¼δ »ÑαÑñ ß«ºñá¡¿Ñ¼ ¡«ó«ú« α¿ßπ¡¬á ªñÑΓ ¡áªáΓ¿∩ ¬½áó¿Φ¿ ¡á ¬½áó¿áΓπαÑ. è«¡Ñµ »α«úαá¼¼δ - »« ¡áªáΓ¿ε ¬½áó¿Φ¿ <Esc>. program aurora; uses crt,vga19; var x,y,z,n,zx,zy,sx,sy,Nm : integer; c,Bu : char; SkyColor,CloudColor, WaterColor, SunColor,SunSize, Horizontal, IslandColor,BreakerColor,VegetationColor : Integer; Name : string; Procedure ScrollLeft; var Degrees,x,y : integer; SaveIt: array[0..199] of integer; begin for x:=0 to 319 do begin for y:=0 to 199 do begin peek(x,y,SaveIt[y]); end; for y:=0 to 199 do begin if x<>319 then peek(x+1,y,Degrees) else peek(0,y,Degrees); plot(x,y,Degrees); plot(x-1,y,SaveIt[y]); end; end; end; begin Randomize; directvideo := false; VMode($13); Janspalette; Palette(0,13,15,10); gotoxy(1,1);TextColor(6);write(' ƒ¡ ÉεúúÑíÑαú, üαÑ¼Ñ¡, âÑα¼á¡¿∩ '); gotoxy(1,3);TextColor(5);write(' Abacus 5370 52nd SE, GR MI 49512 '); gotoxy(1,5);TextColor(4);write(' ¥Γá »α«úαá¼¼á ¡á»¿ßá¡á ¡á Turbo Pascal'); gotoxy(1,7);TextColor(3);write(' ¿ ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ VGA19 (ÉεúúÑíÑαú).); gotoxy(1,9);TextColor(2);write(' Åá½¿Γαá ¿ß»«½∞ºπÑΓ Γ«¡á µóÑΓá ¬«ª¿ ¿ '); gotoxy(1,11);TextColor(1);write(' ñαπú¿Ñ µóÑΓá. '); gotoxy(1,15);TextColor(115);write(' Åα¿ ¡áªáΓ¿¿ ¬½áó¿Φ¿ AURORA ß«ºñáÑΓ '); gotoxy(1,17);TextColor(117);write(' α¿ßπ¡«¬ »Ñ⌐ºáªá »½á¡ÑΓδ. '); gotoxy(1,19);TextColor(119);write(' ìáªáΓ¿Ñ Esc ºáóÑαΦáÑΓ »α«úαá¼¼π. '); c:=readkey; Border(0); repeat SunSize:=16*(random(random(16))+1);Horizontal:=100+Random(60)-Random(20); SkyColor:=12*SunSize+2; WaterColor:=SkyColor+6;SunColor:=SunSize+Random(Random(4)); CloudColor :=SkyColor-16; SunSize:=SunSize div 4 +Random(4); for y:=0 to Horizontal-2 do begin for x:=0 to 319 do begin plot(x,y,-random(y div 10)*16+SkyColor); plot(x,Horizontal-Random(Random(Random(Horizontal))),-random(y div 10)*16+SkyColor); end; end; sx:=Random(300)+5; sy:=Random(Horizontal-10)+5; if SunColor=0 then SunColor:=1; disk (sx,sy,SunSize+2,SunSize,SunColor); circle(sx,sy,SunSize+2,SunSize,SunColor+1); for y:=0 to SunSize do begin zx:=Random(319+1); zy:=Random(Horizontal); for x:= 0 to 500 do begin plot(zx+Random(Random(Horizontal))-Random(Random(Horizontal)),zy+Random(2)-Random(6),CloudColor-random(2)); plot(zx+Random(Random(Horizontal))-Random(Random(Horizontal)),zy+Random(6)-Random(2),CloudColor+2-random(2)); end; end; for x:=0 to 319 do begin plot(x,Horizontal-1,SkyColor+1); plot(x,Horizontal,SkyColor+4); plot(x,Horizontal+1,WaterColor); end; for y:=199 downto Horizontal do begin for x:=0 to 319 do begin plot(x,Horizontal+199-y,random((199-y)div 14)+WaterColor); plot(x,Random(Horizontal)+Horizontal+2,Random(2)+WaterColor); plot(sx+Random(random(random(y)))-Random(random(random(y))),Horizontal+199-y,WaterColor-random(5)-34); end; end; Gotoxy(1,24);TextColor(121);write('Sunrise on the planet '); Nm:=random(5)+1;Name:=''; for n:=0 to NM do begin Bu:=chr(random(26)+65); if Bu='C' then Bu:='E';if Bu='J' then Bu:='I'; if Bu='Q' then Bu:='A';if Bu='V' then Bu:='U'; if Bu='X' then Bu:='O';if Bu='Y' then Bu:='E'; Name:=Bu+Name; end; write(Name); for x:=1 to 1 do ScrollLeft; c:=readkey; until c=chr(27); end. 6.12 ìÑß¬«½∞¬« ºá¬½ετ¿ΓÑ½∞¡δσ ß½«ó »« »«ó«ñπ αáßΦ¿αÑ¡¿⌐ Turbo Pascal ----------------------------------------------------------------- ìÑ¬«Γ«αδÑ ¿º »αÑñßΓáó½Ñ¡¡δσ ó ñá¡¡«⌐ ú½áóÑ »α«úαá¼¼ »«¬áºδóáεΓ, ¬á¬¿¼ «íαáº«¼ ¼«ª¡« »α«úαá¼¼¿α«óáΓ∞ ñ½∩ ó¿ñÑ«-αÑª¿¼á 19 »½áΓδ VGA ¿ ñ½∩ MCGA, ¡Ñ «íαáΘá∩ß∞ ñ½∩ φΓ«ú« ¬ ∩ºδ¬π ¼áΦ¿¡¡δσ ¬«¼á¡ñ »α«µÑßß«αá. ƒºδ¬¿ Turbo Pascal ¿ Turbo BASIC ñáεΓ ¼¡«ªÑßΓó« ó«º¼«ª¡«ßΓÑ⌐ ñ½∩ ß«ºñá¡¿∩ ∩ß¡δσ ¿ »«¡∩Γ¡δσ »α«úαá¼¼, »«ºó«½∩εΘ¿σ ¿ß»«½∞º«óáΓ∞ »αÑ¿¼πΘÑßΓóá úαáΣ¿¬¿ VGA. ä½∩ φΓ«ú« ¼δ ¿ß»«½∞º«óá½¿ ¬«¼á¡ñδ, ¼á¡¿»π½¿απεΘ¿Ñ αÑú¿ßΓαá¼¿, óδº«óá¼¿ »αÑαδóá¡¿⌐ ¿ »α∩¼δ¼ ñ«ßΓπ»«¼ ¬ φ¬αá¡¡«⌐ »á¼∩Γ¿. ü½áú«ñáα∩ φΓ«¼π ∩ºδ¬¿ »α«úαá¼¼¿α«óá¡¿∩, ¡Ñ ¿¼ÑεΘ¿Ñ »α∩¼δσ ßαÑñßΓó »α«úαá¼¼¿α«óá¡¿∩ úαáΣ¿¬¿ ó ó¿ñÑ«-αÑª¿¼Ñ 19, »«½πτáεΓ φΓπ ó«º¼«ª¡«ßΓ∞. êß»«½∞º«óá¡¿Ñ Turbo Pascal ñáÑΓ »αÑ¿¼πΘÑßΓó« ß Γ«τ¬¿ ºαÑ¡¿∩ ß¬«α«ßΓ¿ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼. Åα«úαá¼¼δ ¡á Turbo Pascal »« ß¬«α«ßΓ¿ »αá¬Γ¿τÑß¬¿ ¡Ñ«Γ½¿τ¿¼δ «Γ ¡á»¿ßá¡¡δσ ¡á ¼áΦ¿¡¡δσ ¬«ñáσ. ÆÑ¬ßΓ »α«úαá¼¼, ¿½¿ ¿ßσ«ñ¡δ⌐ ¬«ñ ¡á Turbo Pascal, ú«αáºñ« ¬«α«τÑ ¿ ½ÑúτÑ ñ½∩ ó«ß»α¿∩Γ¿∩ »« ßαáó¡Ñ¡¿ε ß »α«úαá¼¼á¼¿ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ¿½¿ ¼áΦ¿¡¡δσ ¬«ñ«ó. Åα«úαá¼¼δ ¡á Turbo BASIC ¼«úπΓ íδΓ∞ ñáªÑ ¬«α«τÑ, τÑ¼ »α«úαá¼¼δ ¡á Turbo Pascal. Äñ¡á¬« µÑ¡«⌐ φΓ«ú« ∩ó½∩ÑΓß∩ ßπΘÑßΓóÑ¡¡« í«½ÑÑ ¼Ññ½Ñ¡¡«Ñ óδ»«½¡Ñ¡¿Ñ, τΓ« ¼«ªÑΓ »«ó½¿∩Γ∞ ¡á ¬áτÑßΓó« úαáΣ¿τÑß¬¿σ φΣΣÑ¬Γ«ó. ¥Γ« ú½áó¡δ⌐ ¡Ññ«ßΓáΓ«¬ üÑ⌐ß¿¬á, ¿º-ºá ¬«Γ«α«ú« ¼¡«ú¿Ñ »α«úαá¼¼¿ßΓδ «íαáΘáεΓß∩ ¬ í«½ÑÑ ß½«ª¡δ¼ ∩ºδ¬á¼, Γá¬¿¼ ¬á¬ Åáß¬á½∞ ¿½¿ æ¿. 6.13 æ»¿ß«¬ ¡«óδσ »α«µÑñπα ¡á Åáß¬á½Ñ ----------------------------------------------------------------- Åα«µÑñπαδ ¿º â½áóδ 6: procedure Mode(ModeHexNumber:integer); procedure Mode19; procedure FrameColor(ColorNumber:integer); procedure ColorText(Color:integer); procedure Palette(ColorNumber,Blue,Green,Red:integer); procedure Blend(ColorNumber1,Blue1,Green1,Red1, ColorNumber2,Blue2,Green2,Red2:integer); procedure ShowPalette; procedure JansPalette; procedure AssignColor(ColorNumber,Color:integer); procedure Plot(x1,y1:integer;Color:integer); procedure Peek(x1,y1:integer;var OldColor:integer); procedure Block(x1,y1,x2,y2:integer;Color:integer); procedure Circle(xm,ym,a,b:LongInt;Color:integer); procedure Disk(xm,ym,a,b:LongInt;Color:integer); procedure Line(x1,y1,x2,y2:integer;Color:integer); procedure Frame(x1,y1,x2,y2:integer;Color:integer); procedure Feather(x1,y1,x2,y2:integer; Color1,Color2:integer); procedure Horizontal(x1,x2,y:integer; Color1,Color2:integer); procedure Ball(xm,ym,a,b:LongInt; Color1,Color2:integer); procedure Column(x1,y1,x2,y2:integer; Color1,Color2:integer); procedure MixHorizontal(x1,x2,y:integer; Color1,Color2,Mix:integer); procedure MixBall(xm,ym,a,b:LongInt; Color1,Color2,Mix:integer); procedure MixColumn(x1,y1,x2,y2:integer; Color1,Color2,Mix:integer); procedure ReadPalette(ColorNumber:integer; var Blue,Green,Red:integer); procedure PeekPalette(var x,y, Blue,Green,Red:integer); procedure ListPalette; procedure PeekList(x,y:integer; var Blue,Green,Red:integer); procedure Similar(var Number, Blue,Green,Red:integer); procedure ReferenceColor(var Rtg,Number, Blue,Green,Red:integer); procedure Antalia(x1,y1,x2,y2:integer); procedure Smooth(x,y:integer); procedure SmoothCircle(xm,ym,a,b:LongInt); procedure Dim(Number1,Number2,Add:integer); procedure GrayScale(ColorNumber,Count:Byte); procedure ZeroKey; procedure Character(cc:string); procedure HandWriting(cc:string); procedure MiniTextXY(x,y:integer); procedure MiniPrint(As:string); procedure GlasPrint(As:string); procedure HandWritingPrint(As:string); Åα«µÑñπαδ ¿º »α¿¼Ñα«ó »α«úαá¼¼ ó â½áóáσ 6 - 10: procedure Double; procedure DoubleDouble; procedure Half; procedure RollLeft; procedure SunPalette; procedure ShowSystem(NewName:Boolean); procedure ShowSun; procedure ShowDevelopment; procedure SolarSystem; procedure ProgramDescription; procedure SunRise(Select:Boolean);